diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-06-15 13:39:42 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 13:28:37 +0000 |
| commit | 7b6ffde5e09a736903fc6998f766d75bc05e0d40 (patch) | |
| tree | d025aee92185cfdaea3f0d840dc07bd947dcefa6 /lib | |
| parent | cb0e237cd1db2a20f4c94bb2e0c9abecf08f233c (diff) | |
| download | perl-7b6ffde5e09a736903fc6998f766d75bc05e0d40.tar.gz | |
get extutils.t working on VMS (again)
Message-Id: <a05101008b7503dc9dc2f@[172.16.52.1]>
p4raw-id: //depot/perl@10621
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Spec/VMS.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm index 57c4005d99..295c4efd8e 100644 --- a/lib/File/Spec/VMS.pm +++ b/lib/File/Spec/VMS.pm @@ -157,7 +157,8 @@ sub canonpath { } else { $path =~ s-\]\[--g; $path =~ s/><//g; # foo.][bar ==> foo.bar - $path =~ s/([\[<])000000\./$1/; # [000000.foo ==> foo + $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 |