PERFORCE change 11817 for review

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.

• PERFORCE change 11817 for review by Chris Nandor