diff options
| author | Craig A. Berry <craigberry@mac.com> | 2014-12-04 08:02:09 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2014-12-04 08:10:34 -0600 |
| commit | 9b2457c186d2257f3ef7f3d7faca0bfdc74c6c98 (patch) | |
| tree | fa9777da07cb451519239c97832a468065cf048a /ext/VMS-Filespec | |
| parent | 542a754528b7b23df13117bb0f791aeafa63c8f7 (diff) | |
| download | perl-9b2457c186d2257f3ef7f3d7faca0bfdc74c6c98.tar.gz | |
Unescape directory portion of path in unixify.
Basically I missed a spot in 812e68ff314e, so the escaped space
in [foo^_bar], for example, was not translated correctly.
Diffstat (limited to 'ext/VMS-Filespec')
| -rw-r--r-- | ext/VMS-Filespec/t/filespec.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/VMS-Filespec/t/filespec.t b/ext/VMS-Filespec/t/filespec.t index fe91ae01e3..f556703ab8 100644 --- a/ext/VMS-Filespec/t/filespec.t +++ b/ext/VMS-Filespec/t/filespec.t @@ -34,6 +34,8 @@ foreach $test (@tests) { ($arg,$func,$expect2,$expect5) = split(/(?<!\\)\s+/,$test); $arg =~ s/\\//g; # to get whitespace into the argument escape with \ + $expect2 =~ s/\\//g; + $expect5 =~ s/\\//g; $expect2 = undef if $expect2 eq 'undef'; $expect2 = undef if $expect2 eq '^'; $expect5 = undef if $expect5 eq 'undef'; @@ -107,7 +109,7 @@ __some_:<__where_.__over_>__the_.__rainbow_ unixify /__some_/__where_/__over_ __lyrics_:[__are_.__very_^.__sappy_]__but_^.__rhymes_^.__are_.__true_ unixify /__lyrics_/__are_/__very_.__sappy_/__but_.__rhymes_.__are_.__true_ ^ [.$(macro)] unixify $(macro)/ ^ ^+foo.tmp unixify +foo.tmp ^ -[-.foo^_^_bar] unixify ../foo\ \ bar/ ^* +[-.foo^_^_bar] unixify ../foo\ \ bar/ ^ # and back again /__some_/__where_/__over_/__the_.__rainbow_ vmsify __some_:[__where_.__over_]__the_.__rainbow_ ^ |