12 lines
305 B
Perl
Executable file
12 lines
305 B
Perl
Executable file
#!perl
|
|
|
|
sub command { NEXT }
|
|
|
|
$SIG{INT} = sub {
|
|
$::ABORT_HACK = "^C";
|
|
|
|
# DO NOT USE this global variable. It's a nasty hack. In most cases,
|
|
# you should "return ABORT" instead, or maybe "main::abort()" when doing
|
|
# nastier stuff. You should only need $::ABORT_HACK in signal handlers.
|
|
};
|
|
|