Change 26691 by [EMAIL PROTECTED] on 2006/01/06 23:57:55
Don't code the absolute number of tests for the UTF8/EBCDIC case; much
better to subtract the number of tests that don't get run.
Affected files ...
... //depot/perl/t/comp/require.t#36 edit
Differences ...
==== //depot/perl/t/comp/require.t#36 (xtext) ====
Index: perl/t/comp/require.t
--- perl/t/comp/require.t#35~26377~ 2005-12-16 07:55:51.000000000 -0800
+++ perl/t/comp/require.t 2006-01-06 15:57:55.000000000 -0800
@@ -12,7 +12,7 @@
my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0;
my $Is_UTF8 = (${^OPEN} || "") =~ /:utf8/;
my $total_tests = 45;
-if ($Is_EBCDIC || $Is_UTF8) { $total_tests = 42; }
+if ($Is_EBCDIC || $Is_UTF8) { $total_tests -= 3; }
print "1..$total_tests\n";
sub do_require {
End of Patch.
