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 (file)
--- 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.")");