diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-10 15:53:39 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-10 15:53:39 +0000 |
| commit | bcd0738c9a444b4576eed7823f5bfdff557d5a51 (patch) | |
| tree | 5c1e286763364cb4bae2d891e725bde6ebd01461 /lib | |
| parent | 8e5e9ebe73253381295c8c22fd24720255d732e9 (diff) | |
| download | perl-bcd0738c9a444b4576eed7823f5bfdff557d5a51.tar.gz | |
VMS: reorder the elimination of 000000 in the canonpath logic,
from Charles Lane.
p4raw-id: //depot/perl@12393
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Spec/VMS.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm index e51286bade..184c827815 100644 --- a/lib/File/Spec/VMS.pm +++ b/lib/File/Spec/VMS.pm @@ -156,9 +156,9 @@ sub canonpath { else { return vmsify($path); } } else { + $path =~ s/([\[<])000000\./$1/g; # [000000.foo ==> [foo + $path =~ s/([^-]+)\.000000([\]\>])/$1$2/g; # foo.000000] ==> foo] $path =~ s-\]\[--g; $path =~ s/><//g; # foo.][bar ==> foo.bar - $path =~ s/([\[<])000000\./$1/; # [000000.foo ==> [foo - $path =~ s/([^-]+)\.000000([\]\>])/$1$2/; # foo.000000] ==> foo] 1 while $path =~ s{([\[<-])\.-}{$1-}; # [.-.- ==> [-- $path =~ s/\.[^\[<\.]+\.-([\]\>])/$1/; # bar.foo.-] ==> bar] $path =~ s/([\[<])(-+)/$1 . "\cx" x length($2)/e; # encode leading '-'s |