Change 11429 by gsar@moonru on 2001/07/21 04:41:15
MacOS pod test tweak needs \Escape
Affected files ...
... //depot/maint-5.6/perl/t/pod/testp2pt.pl#5 edit
Differences ...
==== //depot/maint-5.6/perl/t/pod/testp2pt.pl#5 (text) ====
Index: perl/t/pod/testp2pt.pl
--- perl/t/pod/testp2pt.pl.~1~ Fri Jul 20 22:45:05 2001
+++ perl/t/pod/testp2pt.pl Fri Jul 20 22:45:05 2001
@@ -49,7 +49,7 @@
}
my $rm_dir = File::Spec->catdir('t', 'pod');
-$INSTDIR =~ s/$rm_dir$//; # cut 't/pod' from path (cut 't:pod:' on Mac OS)
+$INSTDIR =~ s/\Q$rm_dir\E$//; # cut 't/pod' from path (cut 't:pod:' on Mac OS)
my @PODINCDIRS = ( catfile($INSTDIR, 'lib', 'Pod'),
catfile($INSTDIR, 'scripts'),
End of Patch.
