Change 14449 by jhi@alpha on 2002/01/27 19:34:56
Apparently no need for EBCDIC exception any more.
Affected files ...
.... //depot/perl/ext/B/t/showlex.t#3 edit
Differences ...
==== //depot/perl/ext/B/t/showlex.t#3 (xtext) ====
Index: perl/ext/B/t/showlex.t
--- perl/ext/B/t/showlex.t.~1~ Sun Jan 27 12:45:06 2002
+++ perl/ext/B/t/showlex.t Sun Jan 27 12:45:06 2002
@@ -33,11 +33,6 @@
print "# use5005threads: test $test skipped\n";
} else {
$a = `$^X $path "-MO=Showlex" -e "my \@one" $redir`;
- if (ord('A') != 193) { # ASCIIish
- print "# [$a]\nnot " unless $a =~ /sv_undef.*PVNV.*\@one.*sv_undef.*AV/s;
- }
- else { # EBCDICish C<1: PVNV (0x1a7ede34) "@\226\225\205">
- print "# [$a]\nnot " unless $a =~ /sv_undef.*PVNV.*\@\\[0-9].*sv_undef.*AV/s;
- }
+ print "# [$a]\nnot " unless $a =~ /sv_undef.*PVNV.*\@one.*sv_undef.*AV/s;
}
ok;
End of Patch.
