Change 11817 by pudge@pudge-mobile on 2001/09/01 22:36:29
Fix test
Affected files ...
... //depot/maint-5.6/macperl/t/lib/b.t#3 edit
Differences ...
==== //depot/maint-5.6/macperl/t/lib/b.t#3 (xtext) ====
Index: perl/t/lib/b.t
--- perl/t/lib/b.t.~1~ Sat Sep 1 16:45:06 2001
+++ perl/t/lib/b.t Sat Sep 1 16:45:06 2001
@@ -67,7 +67,7 @@
my $redir = $Is_MacOS ? "" : "2>&1";
$a = `$^X $path "-MO=Deparse" -anle 1 $redir`;
-$a =~ s/(?:# )-e syntax OK\n//g; # "# " for Mac OS
+$a =~ s/(?:# )?-e syntax OK\n//g; # "# " for Mac OS
$a =~ s{\\340\\242}{\\s} if (ord("\\") == 224); # EBCDIC, cp 1047 or 037
$a =~ s{\\274\\242}{\\s} if (ord("\\") == 188); # $^O eq 'posix-bc'
$b = <<'EOF';
End of Patch.
