diff options
Diffstat (limited to 'ext/VMS-Filespec/t/filespec.t')
| -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_ ^ |