diff options
Diffstat (limited to 'gnu/usr.bin/perl/dist/ExtUtils-Install/lib/ExtUtils')
| -rw-r--r-- | gnu/usr.bin/perl/dist/ExtUtils-Install/lib/ExtUtils/Install.pm | 31 | ||||
| -rw-r--r-- | gnu/usr.bin/perl/dist/ExtUtils-Install/lib/ExtUtils/Installed.pm | 4 |
2 files changed, 5 insertions, 30 deletions
diff --git a/gnu/usr.bin/perl/dist/ExtUtils-Install/lib/ExtUtils/Install.pm b/gnu/usr.bin/perl/dist/ExtUtils-Install/lib/ExtUtils/Install.pm index 7e4cd7fade0..7e17121d499 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-Install/lib/ExtUtils/Install.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-Install/lib/ExtUtils/Install.pm @@ -38,11 +38,11 @@ ExtUtils::Install - install files from here to there =head1 VERSION -1.58 +1.59 =cut -$VERSION = '1.58'; # <---- dont forget to update the POD section just above this line! +$VERSION = '1.59'; # <---- dont forget to update the POD section just above this line! $VERSION = eval $VERSION; =pod @@ -96,34 +96,11 @@ Dies with a special message. =cut my $Is_VMS = $^O eq 'VMS'; -my $Is_VMS_noefs = $Is_VMS; my $Is_MacPerl = $^O eq 'MacOS'; my $Is_Win32 = $^O eq 'MSWin32'; my $Is_cygwin = $^O eq 'cygwin'; my $CanMoveAtBoot = ($Is_Win32 || $Is_cygwin); - if( $Is_VMS ) { - my $vms_unix_rpt; - my $vms_efs; - my $vms_case; - - if (eval { local $SIG{__DIE__}; require VMS::Feature; }) { - $vms_unix_rpt = VMS::Feature::current("filename_unix_report"); - $vms_efs = VMS::Feature::current("efs_charset"); - $vms_case = VMS::Feature::current("efs_case_preserve"); - } else { - my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || ''; - my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || ''; - my $efs_case = $ENV{'DECC$EFS_CASE_PRESERVE'} || ''; - $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i; - $vms_efs = $efs_charset =~ /^[ET1]/i; - $vms_case = $efs_case =~ /^[ET1]/i; - } - $Is_VMS_noefs = 0 if ($vms_efs); - } - - - # *note* CanMoveAtBoot is only incidentally the same condition as below # this needs not hold true in the future. my $Has_Win32API_File = ($Is_Win32 || $Is_cygwin) @@ -440,9 +417,7 @@ sub _can_write_dir { my $path=''; my @make; while (@dirs) { - if ($Is_VMS_noefs) { - # There is a bug in catdir that is fixed when the EFS character - # set is enabled, which requires this VMS specific code. + if ($Is_VMS) { $dir = File::Spec->catdir($vol,@dirs); } else { diff --git a/gnu/usr.bin/perl/dist/ExtUtils-Install/lib/ExtUtils/Installed.pm b/gnu/usr.bin/perl/dist/ExtUtils-Install/lib/ExtUtils/Installed.pm index b4b7f7580fa..c267d992e2e 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-Install/lib/ExtUtils/Installed.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-Install/lib/ExtUtils/Installed.pm @@ -17,7 +17,7 @@ my $DOSISH = ($^O =~ /^(MSWin\d\d|os2|dos|mint)$/); require VMS::Filespec if $Is_VMS; use vars qw($VERSION); -$VERSION = '1.999002'; +$VERSION = '1.999003'; $VERSION = eval $VERSION; sub _is_prefix { @@ -403,7 +403,7 @@ search for installed modules. For instance my $installed = ExtUtils::Installed->new(extra_libs=>["/my/lib/path"]); -This should only be necessary if C</my/lib/path> is not in PERL5LIB. +This should only be necessary if F</my/lib/path> is not in PERL5LIB. Finally there is the 'default', and the related 'default_get' and 'default_set' options. These options control the "default" object which is provided by the |