perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Doug MacEachern <do...@covalent.net>
Subject Re: Line 14 in startup.pl
Date Wed, 13 Sep 2000 05:14:23 GMT
On Wed, 13 Sep 2000, Gerald Richter wrote:
 
> This seems to work an Win32 and on Unix. As soon as we solve the failure in
> the perlrun test on Unix, I commit the patches to the cvs

is that related to the FindBin part of randy's patch?  this should work in
both places (untested).  just "unshift @INC, '.'" might be enough to keep
win32 happy.  i'm guessing either '.' gets removed somehow from @INC or
the $r->chdir_file() does work properly running under activeperl.

--- t/net/perl/dirty-test.cgi   2000/05/12 07:10:59     1.5
+++ t/net/perl/dirty-test.cgi   2000/09/13 05:12:19
@@ -1,5 +1,9 @@
-use lib '.';
+unshift @INC, 
+       -e "dirty-lib" ? '.' :
+       Apache->server_root_relative("net/perl");
 require "dirty-lib";
+shift @INC;
+
 unless (defined(&not_ina_package) && not_ina_package()) {
     die "%INC save/restore broken";
 }



Mime
View raw message