This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: require patch breaks locale
authorRick Delaney <rick@consumercontact.com>
Wed, 8 Oct 2003 22:41:55 +0000 (18:41 -0400)
committerAbhijit Menon-Sen <ams@wiw.org>
Thu, 9 Oct 2003 01:36:18 +0000 (01:36 +0000)
Message-Id: <20031008224155.A14638@biff.bort.ca>

p4raw-id: //depot/perl@21427

t/comp/require.t

index fa75e18..6931146 100755 (executable)
@@ -12,7 +12,7 @@ $i = 1;
 my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0;
 my $Is_UTF8   = (${^OPEN} || "") =~ /:utf8/;
 my $total_tests = 44;
-if ($Is_EBCDIC || $Is_UTF8) { $total_tests = 27; }
+if ($Is_EBCDIC || $Is_UTF8) { $total_tests = 41; }
 print "1..$total_tests\n";
 
 sub do_require {