diff options
author | Yves Orton <demerphq@gmail.com> | 2022-12-03 09:35:27 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2022-12-03 20:03:11 +0100 |
commit | 14733d8a61afacead361cbb71efb4046e6dbe16a (patch) | |
tree | da1ce666a8fd39157eb349ee0968286aed6bf7e0 /dist/PathTools | |
parent | 4d21c0264d5bef34fde5eb757c28d3d1a1dc7fef (diff) | |
download | perl-14733d8a61afacead361cbb71efb4046e6dbe16a.tar.gz |
dist/PathTools - fix possible VMS breakage
In #19645 I added a fix for empty paths under taint mode. This fix may have
changed VMS behavior, which this patch should fix.
Diffstat (limited to 'dist/PathTools')
-rw-r--r-- | dist/PathTools/Changes | 4 | ||||
-rw-r--r-- | dist/PathTools/Cwd.pm | 3 | ||||
-rw-r--r-- | dist/PathTools/lib/File/Spec.pm | 2 | ||||
-rw-r--r-- | dist/PathTools/lib/File/Spec/AmigaOS.pm | 2 | ||||
-rw-r--r-- | dist/PathTools/lib/File/Spec/Cygwin.pm | 2 | ||||
-rw-r--r-- | dist/PathTools/lib/File/Spec/Epoc.pm | 2 | ||||
-rw-r--r-- | dist/PathTools/lib/File/Spec/Functions.pm | 2 | ||||
-rw-r--r-- | dist/PathTools/lib/File/Spec/Mac.pm | 2 | ||||
-rw-r--r-- | dist/PathTools/lib/File/Spec/OS2.pm | 2 | ||||
-rw-r--r-- | dist/PathTools/lib/File/Spec/Unix.pm | 2 | ||||
-rw-r--r-- | dist/PathTools/lib/File/Spec/VMS.pm | 2 | ||||
-rw-r--r-- | dist/PathTools/lib/File/Spec/Win32.pm | 2 |
12 files changed, 16 insertions, 11 deletions
diff --git a/dist/PathTools/Changes b/dist/PathTools/Changes index 10f2635861..47e172a686 100644 --- a/dist/PathTools/Changes +++ b/dist/PathTools/Changes @@ -1,5 +1,9 @@ Revision history for Perl distribution PathTools. +3.87-3.88 + +- Fix handling of empty path, VMS fixes. + 3.86 - Fix compilation warning on illumos based platforms diff --git a/dist/PathTools/Cwd.pm b/dist/PathTools/Cwd.pm index 1163a34883..58211ef8ec 100644 --- a/dist/PathTools/Cwd.pm +++ b/dist/PathTools/Cwd.pm @@ -3,7 +3,7 @@ use strict; use Exporter; -our $VERSION = '3.86'; +our $VERSION = '3.88'; my $xs_version = $VERSION; $VERSION =~ tr/_//d; @@ -200,6 +200,7 @@ sub _backtick_pwd { # anything absolute. Perhaps "/" would be better. local $ENV{PATH}= "/usr/bin" if $^O ne "vms" and $^O ne "amigaos"; + local $ENV{PATH} if $^O eq "vms"; my $cwd = `$pwd_cmd`; # Belt-and-suspenders in case someone said "undef $/". diff --git a/dist/PathTools/lib/File/Spec.pm b/dist/PathTools/lib/File/Spec.pm index beb3b91d80..fc10c0f244 100644 --- a/dist/PathTools/lib/File/Spec.pm +++ b/dist/PathTools/lib/File/Spec.pm @@ -2,7 +2,7 @@ package File::Spec; use strict; -our $VERSION = '3.87'; +our $VERSION = '3.88'; $VERSION =~ tr/_//d; my %module = ( diff --git a/dist/PathTools/lib/File/Spec/AmigaOS.pm b/dist/PathTools/lib/File/Spec/AmigaOS.pm index 4e25855d91..3fc3c98996 100644 --- a/dist/PathTools/lib/File/Spec/AmigaOS.pm +++ b/dist/PathTools/lib/File/Spec/AmigaOS.pm @@ -3,7 +3,7 @@ package File::Spec::AmigaOS; use strict; require File::Spec::Unix; -our $VERSION = '3.86'; +our $VERSION = '3.88'; $VERSION =~ tr/_//d; our @ISA = qw(File::Spec::Unix); diff --git a/dist/PathTools/lib/File/Spec/Cygwin.pm b/dist/PathTools/lib/File/Spec/Cygwin.pm index b9f92cde61..fb3eaaac3e 100644 --- a/dist/PathTools/lib/File/Spec/Cygwin.pm +++ b/dist/PathTools/lib/File/Spec/Cygwin.pm @@ -3,7 +3,7 @@ package File::Spec::Cygwin; use strict; require File::Spec::Unix; -our $VERSION = '3.86'; +our $VERSION = '3.88'; $VERSION =~ tr/_//d; our @ISA = qw(File::Spec::Unix); diff --git a/dist/PathTools/lib/File/Spec/Epoc.pm b/dist/PathTools/lib/File/Spec/Epoc.pm index 109cdd1b1d..9391f3a05a 100644 --- a/dist/PathTools/lib/File/Spec/Epoc.pm +++ b/dist/PathTools/lib/File/Spec/Epoc.pm @@ -2,7 +2,7 @@ package File::Spec::Epoc; use strict; -our $VERSION = '3.86'; +our $VERSION = '3.88'; $VERSION =~ tr/_//d; require File::Spec::Unix; diff --git a/dist/PathTools/lib/File/Spec/Functions.pm b/dist/PathTools/lib/File/Spec/Functions.pm index acdf10fa65..a0d864182a 100644 --- a/dist/PathTools/lib/File/Spec/Functions.pm +++ b/dist/PathTools/lib/File/Spec/Functions.pm @@ -3,7 +3,7 @@ package File::Spec::Functions; use File::Spec; use strict; -our $VERSION = '3.86'; +our $VERSION = '3.88'; $VERSION =~ tr/_//d; require Exporter; diff --git a/dist/PathTools/lib/File/Spec/Mac.pm b/dist/PathTools/lib/File/Spec/Mac.pm index f47432e580..5f5cca9cd7 100644 --- a/dist/PathTools/lib/File/Spec/Mac.pm +++ b/dist/PathTools/lib/File/Spec/Mac.pm @@ -4,7 +4,7 @@ use strict; use Cwd (); require File::Spec::Unix; -our $VERSION = '3.86'; +our $VERSION = '3.88'; $VERSION =~ tr/_//d; our @ISA = qw(File::Spec::Unix); diff --git a/dist/PathTools/lib/File/Spec/OS2.pm b/dist/PathTools/lib/File/Spec/OS2.pm index bb6a176353..eea5328124 100644 --- a/dist/PathTools/lib/File/Spec/OS2.pm +++ b/dist/PathTools/lib/File/Spec/OS2.pm @@ -4,7 +4,7 @@ use strict; use Cwd (); require File::Spec::Unix; -our $VERSION = '3.86'; +our $VERSION = '3.88'; $VERSION =~ tr/_//d; our @ISA = qw(File::Spec::Unix); diff --git a/dist/PathTools/lib/File/Spec/Unix.pm b/dist/PathTools/lib/File/Spec/Unix.pm index 6ae3fe862b..2d5af10827 100644 --- a/dist/PathTools/lib/File/Spec/Unix.pm +++ b/dist/PathTools/lib/File/Spec/Unix.pm @@ -3,7 +3,7 @@ package File::Spec::Unix; use strict; use Cwd (); -our $VERSION = '3.86'; +our $VERSION = '3.88'; $VERSION =~ tr/_//d; =head1 NAME diff --git a/dist/PathTools/lib/File/Spec/VMS.pm b/dist/PathTools/lib/File/Spec/VMS.pm index e909916fa2..e5d5a38f20 100644 --- a/dist/PathTools/lib/File/Spec/VMS.pm +++ b/dist/PathTools/lib/File/Spec/VMS.pm @@ -4,7 +4,7 @@ use strict; use Cwd (); require File::Spec::Unix; -our $VERSION = '3.86'; +our $VERSION = '3.88'; $VERSION =~ tr/_//d; our @ISA = qw(File::Spec::Unix); diff --git a/dist/PathTools/lib/File/Spec/Win32.pm b/dist/PathTools/lib/File/Spec/Win32.pm index fc3a65ec67..292c2f8d1a 100644 --- a/dist/PathTools/lib/File/Spec/Win32.pm +++ b/dist/PathTools/lib/File/Spec/Win32.pm @@ -5,7 +5,7 @@ use strict; use Cwd (); require File::Spec::Unix; -our $VERSION = '3.86'; +our $VERSION = '3.88'; $VERSION =~ tr/_//d; our @ISA = qw(File::Spec::Unix); |