From 68a241fe37b258cd9c6f9e0293618e54be08f26b Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Fri, 24 Aug 2007 20:31:14 +0000 Subject: [PATCH] thinko in 10_Archive-Extract.t portion of #31747 p4raw-id: //depot/perl@31751 --- lib/Archive/Extract/t/01_Archive-Extract.t | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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.")"); -- 2.7.4