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.

Author: demerphq

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

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 $/".

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 = (

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);

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);

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;

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;

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);

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);

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