VMS-specific tweak to FindBin for when $0 returns a unix-style filespec.
authorCraig A. Berry <craigberry@mac.com>
Sat, 28 Apr 2007 16:06:01 +0000 (16:06 +0000)
committerCraig A. Berry <craigberry@mac.com>
Sat, 28 Apr 2007 16:06:01 +0000 (16:06 +0000)
p4raw-id: //depot/perl@31105

lib/FindBin.pm

index ed5d040..e218de9 100644 (file)
@@ -104,7 +104,7 @@ use File::Spec;
 %EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir $RealDir)]);
 @ISA = qw(Exporter);
 
-$VERSION = "1.48";
+$VERSION = "1.49";
 
 
 # needed for VMS-specific filename translation
@@ -139,7 +139,7 @@ sub init
 
    if ($^O eq 'VMS')
     {
-     ($Bin,$Script) = VMS::Filespec::rmsexpand($0) =~ /(.*[\]>]+)(.*)/s;
+     ($Bin,$Script) = VMS::Filespec::rmsexpand($0) =~ /(.*[\]>\/]+)(.*)/s;
      # C<use disk:[dev]/lib> isn't going to work, so unixify first
      ($Bin = VMS::Filespec::unixify($Bin)) =~ s/\/\z//;
      ($RealBin,$RealScript) = ($Bin,$Script);