15 lines
293 B
Perl
15 lines
293 B
Perl
#!perl
|
|
|
|
*hook_plugin_fail = *hook_retry = *hook_reject = *hook_invalid_input = sub {
|
|
call_hooks('beep');
|
|
undef;
|
|
};
|
|
|
|
sub hook_abort {
|
|
my ($self, $cart, $reason) = @_;
|
|
return if not $reason or not @$reason;
|
|
return if "@$reason" eq '^C';
|
|
|
|
call_hooks('beep');
|
|
undef;
|
|
}
|