This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/croak/op: Fix to work on EBCDIC platforms
authorKarl Williamson <khw@cpan.org>
Wed, 4 Feb 2015 20:30:48 +0000 (13:30 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 6 Mar 2015 04:48:28 +0000 (21:48 -0700)
t/lib/croak/op

index 5652beb..2d2887d 100644 (file)
@@ -11,13 +11,14 @@ EXPECT
 Can't use global $! in "my" at - line 1, near "my $!"
 Execution of - aborted due to compilation errors.
 ########
-# NAME my $<latin1>
+# NAME my $<non-ASCII> doesn't output garbage
+# \xB6 is same character in all three EBCDIC pages and Latin1
 use open ":std", ":utf8";
-eval qq|my \$\xe9;|; # é in Latin-1
+eval qq|my \$\xb6;|; # ¶ in Latin-1, and EBCDIC 1047, 037, POSIX-BC
 print $@;
 exit 1;
 EXPECT
-Can't use global $é in "my" at (eval 1) line 1, near "my $é"
+Can't use global $¶ in "my" at (eval 1) line 1, near "my $¶"
 ########
 # NAME OP_HELEM fields
 package Foo;