diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-12-05 10:41:59 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-06 02:39:43 +0000 |
| commit | 0e9538e66cd297c993f940738cc742c71d176be3 (patch) | |
| tree | fbf9a6da482e5e2b18842d32d04b5e7d0ed236c9 /lib | |
| parent | af0cab943dd893d19226977dbf21d951d8ebf7aa (diff) | |
| download | perl-0e9538e66cd297c993f940738cc742c71d176be3.tar.gz | |
] VMS-only File::Spec->canonpath fix
Message-Id: <5.1.0.14.2.20011205160043.02160e90@exchi01>
p4raw-id: //depot/perl@13481
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Spec/VMS.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm index 325af08290..f21ff5ecee 100644 --- a/lib/File/Spec/VMS.pm +++ b/lib/File/Spec/VMS.pm @@ -157,7 +157,7 @@ sub canonpath { } else { $path =~ s/([\[<])000000\./$1/g; # [000000.foo ==> [foo - $path =~ s/([^-]+)\.000000([\]\>])/$1$2/g; # foo.000000] ==> foo] + $path =~ s/([^-]+)\.(\]\[|><)?000000([\]\>])/$1$3/g; # foo.000000] ==> foo] $path =~ s-\]\[--g; $path =~ s/><//g; # foo.][bar ==> foo.bar 1 while $path =~ s{([\[<-])\.-}{$1-}; # [.-.- ==> [-- $path =~ s/\.[^\[<\.]+\.-([\]\>])/$1/; # bar.foo.-] ==> bar] |