Change 11430 by gsar@moonru on 2001/07/21 04:58:12
better tweak for change#11429 (windows has both / and \ separated
paths in @INC at that point)
Affected files ...
... //depot/maint-5.6/perl/t/pod/testp2pt.pl#6 edit
Differences ...
==== //depot/maint-5.6/perl/t/pod/testp2pt.pl#6 (text) ====
Index: perl/t/pod/testp2pt.pl
--- perl/t/pod/testp2pt.pl.~1~ Fri Jul 20 23:00:05 2001
+++ perl/t/pod/testp2pt.pl Fri Jul 20 23:00:05 2001
@@ -48,8 +48,7 @@
$INSTDIR =~ s#/000000/#/#;
}
-my $rm_dir = File::Spec->catdir('t', 'pod');
-$INSTDIR =~ s/\Q$rm_dir\E$//; # cut 't/pod' from path (cut 't:pod:' on Mac OS)
+$INSTDIR =~ s{t[/\\:]pod$}{}i; # cut 't/pod' from path (cut 't:pod:' on Mac OS)
my @PODINCDIRS = ( catfile($INSTDIR, 'lib', 'Pod'),
catfile($INSTDIR, 'scripts'),
End of Patch.
