--- lib/Grep/Search.pm 2007/02/21 16:06:25 53 +++ lib/Grep/Search.pm 2007/02/21 17:42:24 57 @@ -179,6 +179,8 @@ undef $writer; } +=for TODO + sub _signal { my $s = shift; warn "catched SIG $s\n"; @@ -190,6 +192,7 @@ $SIG{'INT'} = \&_signal; $SIG{'QUIT'} = \&_signal; +=cut =head2 snippet