From 9b2457c186d2257f3ef7f3d7faca0bfdc74c6c98 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Thu, 4 Dec 2014 08:02:09 -0600
Subject: 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.
---
 ext/VMS-Filespec/t/filespec.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'ext/VMS-Filespec/t/filespec.t')

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_ ^
-- 
cgit v1.2.1