added cgi_chain_root

[catagits/Catalyst-Controller-WrapCGI.git] / t / lib / TestCGIBinChainRoot / root / cgi / path / test.pl

diff --git a/t/lib/TestCGIBinChainRoot/root/cgi/path/test.pl b/t/lib/TestCGIBinChainRoot/root/cgi/path/test.pl
new file mode 100755 (executable)
index 0000000..3bff333
--- /dev/null
+++ b/t/lib/TestCGIBinChainRoot/root/cgi/path/test.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl 
+
+use strict;
+use warnings;
+
+use CGI ':standard';
+
+die '$ENV{MOD_PERL} must not be set' if $ENV{MOD_PERL};
+
+print header;
+print 'foo:',param('foo'),' bar:',param('bar')
+    ,' from_chain:',param('from_chain');