diff options
| author | Craig A. Berry <craigberry@mac.com> | 2007-04-28 16:06:01 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-04-28 16:06:01 +0000 |
| commit | 8fc8005d410ad8042b6d15ffc54dff4894a7075f (patch) | |
| tree | 9b1526bd6a87b2929dfce106fd34e9b14ca301d8 | |
| parent | 65f9def6e9d9e48317c4d5c5b7f9ee488e5a4f5c (diff) | |
| download | perl-8fc8005d410ad8042b6d15ffc54dff4894a7075f.tar.gz | |
VMS-specific tweak to FindBin for when $0 returns a unix-style filespec.
p4raw-id: //depot/perl@31105
| -rw-r--r-- | lib/FindBin.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/FindBin.pm b/lib/FindBin.pm index ed5d040e60..e218de986a 100644 --- a/lib/FindBin.pm +++ b/lib/FindBin.pm @@ -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); |