Change 31751 by [EMAIL PROTECTED] on 2007/08/24 20:31:14
thinko in 10_Archive-Extract.t portion of #31747
Affected files ...
... //depot/perl/lib/Archive/Extract/t/01_Archive-Extract.t#6 edit
Differences ...
==== //depot/perl/lib/Archive/Extract/t/01_Archive-Extract.t#6 (text) ====
Index: perl/lib/Archive/Extract/t/01_Archive-Extract.t
--- perl/lib/Archive/Extract/t/01_Archive-Extract.t#5~31747~ 2007-08-22
04:20:52.000000000 -0700
+++ perl/lib/Archive/Extract/t/01_Archive-Extract.t 2007-08-24
13:31:14.000000000 -0700
@@ -362,9 +362,7 @@
### 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.")");
End of Patch.
