Try either:
($CGIPath) = ($0 =~ m#^(.*\\)#); # back-slash separators
&require_supporting_libraries (__FILE__, __LINE__,
$CGIPath . 'Library\\cgi-lib.pl',
$CGIPath . 'Library\\auth-lib.pl',
$CGIPath . 'Library\\db-lib.pl');
or:
($CGIPath) = ($0 =~ m#^(.*/)#); # forward-slash separators
&require_supporting_libraries (__FILE__, __LINE__,
$CGIPath . 'Library/cgi-lib.pl',
$CGIPath . 'Library/auth-lib.pl',
$CGIPath . 'Library/db-lib.pl');
Perl should be happy with either, but I've had difficulty in the past with
forward-slash separators in win32 implementations.
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of Peggy
> Kebel
> Sent: Monday, March 26, 2001 12:24 PM
> To: [EMAIL PROTECTED]
> Subject: RE: Current Path for CGI perl on Win NT
>
-snip-
>
> What I tried:
> ($CGIPath) = ($0 =~ m#^(.*\\)#);
>
> &require_supporting_libraries (__FILE__, __LINE__,
> $CGIPath . 'Library/cgi-lib.pl',
> $CGIPath . 'Library/auth-lib.pl',
> $CGIPath . 'Library/db-lib.pl');
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>
> _______________________________________________
> Perl-Win32-Web mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
>
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
