Annoy user when they type 'y' instead of 'yes' :)
This commit is contained in:
parent
1ecb2286df
commit
8e9a037d1c
1 changed files with 3 additions and 0 deletions
|
@ -281,6 +281,9 @@ sub command($self, $cart, $command, @) {
|
||||||
}
|
}
|
||||||
|
|
||||||
sub void :Tab(yes,no) ($self, $cart, $input, @) {
|
sub void :Tab(yes,no) ($self, $cart, $input, @) {
|
||||||
|
if ($input eq 'y') {
|
||||||
|
return REJECT, "y is not yes...";
|
||||||
|
}
|
||||||
if ($input ne 'yes') {
|
if ($input ne 'yes') {
|
||||||
print "Destruction cancelled.\n";
|
print "Destruction cancelled.\n";
|
||||||
return ACCEPT;
|
return ACCEPT;
|
||||||
|
|
Loading…
Add table
Reference in a new issue