From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 24 Aug 2007 20:31:14 +0000 (+0000)
Subject: thinko in 10_Archive-Extract.t portion of #31747
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=68a241fe37b258cd9c6f9e0293618e54be08f26b;p=p5sagit%2Fp5-mst-13.2.git

thinko in 10_Archive-Extract.t portion of #31747

p4raw-id: //depot/perl@31751
---

diff --git a/lib/Archive/Extract/t/01_Archive-Extract.t b/lib/Archive/Extract/t/01_Archive-Extract.t
index 71f712f..4332517 100644
--- a/lib/Archive/Extract/t/01_Archive-Extract.t
+++ b/lib/Archive/Extract/t/01_Archive-Extract.t
@@ -362,9 +362,7 @@ for my $switch (0,1) {
                         ### if something went wrong with determining the out
                         ### path, don't go deleting stuff.. might be Really Bad
                         my $out_re = quotemeta( $OutDir );
-
-		        # Remove the directory terminator from regex
-			my $out_re = s/\\\]// if IS_VMS;
+                        $out_re =~ s/\\(>|\])\z// if IS_VMS; # zap trailing bracket
 
                         if( $ae->extract_path !~ /^$out_re/ ) {   
                             ok( 0, "Extractpath WRONG (".$ae->extract_path.")");