On Mon, Sep 08, 2003 at 11:30:30AM +0100, Orton, Yves wrote:
> ExtUtils::Install is using the Unix path seperator on Win32.
>
> Patch as follows
>
> --- ExtUtils-MakeMaker-6.16/lib/ExtUtils/Install.pm 2003-06-05
> 10:04:31.000000000 +0200
> +++ ExtUtils-MakeMaker-6.16-pathced/lib/ExtUtils/Install.pm 2003-09-08
> 11:58:26.000000000 +0200
> @@ -15 +15 @@
> -my $splitchar = $^O eq 'VMS' ? '|' : ($^O eq 'os2' || $^O eq 'dos') ? ';' :
> ':';
> +my $splitchar = $^O eq 'VMS' ? '|' : $^O=~/^(?:os2|dos|MSWin32)$/ ? ';' :
> ':';
Yes, it should probably just use $Config{path_sep};
--- Install.pm 5 Jun 2003 08:16:09 -0000 1.21
+++ Install.pm 11 Sep 2003 02:55:58 -0000
@@ -12,7 +12,6 @@
$Is_VMS = $^O eq 'VMS';
$Is_MacPerl = $^O eq 'MacOS';
-my $splitchar = $^O eq 'VMS' ? '|' : ($^O eq 'os2' || $^O eq 'dos') ? ';' : ':';
my $Inc_uninstall_warn_handler;
# install relative to here
@@ -335,7 +334,7 @@
my $file = (File::Spec->splitpath($filepath))[2];
my %seen_dir = ();
- my @PERL_ENV_LIB = split $splitchar, defined $ENV{'PERL5LIB'}
+ my @PERL_ENV_LIB = split $Config{path_sep}, defined $ENV{'PERL5LIB'}
? $ENV{'PERL5LIB'} : $ENV{'PERLLIB'} || '';
foreach $dir (@INC, @PERL_ENV_LIB, @Config{qw(archlibexp
--
Michael G Schwern [EMAIL PROTECTED] http://www.pobox.com/~schwern/
I need a SHOWER a BURGER and some ROBOTS, STAT!
-- http://www.angryflower.com/allrigh.gif
