Re: Line 14 in startup.pl

[Doug MacEachern]

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";
 }



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]