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.

p4raw-id: //depot/perl@26691

diff --git a/t/comp/require.t b/t/comp/require.t
index 1e2c9fb..d0ad1f8 100755 (executable)
--- a/t/comp/require.t
+++ b/t/comp/require.t
@@ -12,7 +12,7 @@ $i = 1;
 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 {