Frozen Fish 1: Amiga/FrozenFish-Apr94.iso/bbs/gnu/perl-4.036.tar.gz/perl-4.036.tar/perl-4.036/atarist/test/sig

Text File | 1993-02-08 | 191b | 13 lines

sub handler {
    local($sig) = @_;
    print "Caught SIG$sig\n";
    exit(0);
}

$SIG{'INT'} = 'handler';

print "Hit CRTL-C to see if it is trapped\n";
while($_ = <ARGV>) {
    print $_;
}