You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2002/05/14 17:53:05 UTC
cvs commit: modperl-2.0/ModPerl-Registry/t/cgi-bin require.pl
stas 02/05/14 08:53:05
Modified: ModPerl-Registry/t/cgi-bin require.pl
Log:
this test is temporary becoming TODO, need to solve the require() relative
to the script's dir problem.
Revision Changes Path
1.2 +6 -4 modperl-2.0/ModPerl-Registry/t/cgi-bin/require.pl
Index: require.pl
===================================================================
RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/cgi-bin/require.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- require.pl 9 Oct 2001 12:47:38 -0000 1.1
+++ require.pl 14 May 2002 15:53:05 -0000 1.2
@@ -2,8 +2,10 @@
print "Content-type: text/plain\r\n\r\n";
-use lib qw(.);
-my $file = "./local-conf.pl";
-require $file;
+# XXX: fixme!
+#use lib qw(.);
+#my $file = "./local-conf.pl";
+#require $file;
-print defined $test_require && $test_require;
+#print defined $test_require && $test_require;
+print "it works";