steal some code from CGI::Compile, release

[catagits/Catalyst-Controller-WrapCGI.git] / t / lib / TestCGIBin / root / cgi-bin / sigs.pl

diff --git a/t/lib/TestCGIBin/root/cgi-bin/sigs.pl b/t/lib/TestCGIBin/root/cgi-bin/sigs.pl
new file mode 100755 (executable)
index 0000000..b1cb8ab
--- /dev/null
+++ b/t/lib/TestCGIBin/root/cgi-bin/sigs.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl 
+
+use strict;
+use warnings;
+
+use CGI ':standard';
+
+$SIG{__DIE__} = sub { print "DIED!\n" };
+$SIG{__WARN__} = sub { print "WARNED!\n" };
+
+print header;