X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-CGI-Ex;a=blobdiff_plain;f=samples%2Fapp%2Fapp1%2Fjs.pl;fp=samples%2Fapp%2Fapp1%2Fjs.pl;h=795068b9054adc8721b4d75803f835a54db1f2a9;hp=0000000000000000000000000000000000000000;hb=ed00221d27dfab1e82ec2ea040ab4c399a91c545;hpb=0b04f67c06c1db11969096f07dfc7dbb23bf99ba

diff --git a/samples/app/app1/js.pl b/samples/app/app1/js.pl
new file mode 100755
index 0000000..795068b
--- /dev/null
+++ b/samples/app/app1/js.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+=head1 NAME
+
+js.pl - simple @INC js printer
+
+=head1 DESCRIPTION
+
+This is necessary because app1.pl hard codes path.
+
+=cut
+
+use strict;
+use warnings;
+
+use CGI::Ex;
+CGI::Ex->print_js($ENV{'PATH_INFO'});