mattn · February 3, 2009 08:03
diff --git a/MyFilter.pm b/MyFilter.pm
 package MyFilter;
 use strict;
 use warnings;
 use Filter::Simple;

 FILTER { s{ \$SIG\{INT\{ }{ \$SIG\{INT\} }x; };

 1;
diff --git a/sig-filter.pl b/sig-filter.pl
 use MyFilter;

 $SIG{INT{ = sub {
  unlink $tmpfile;
  exit 1;
 }
	package MyFilter;
	use strict;
	use warnings;
	use Filter::Simple;

	FILTER { s{ \$SIG\{INT\{ }{ \$SIG\{INT\} }x; };

	1;