In perl.git, the branch khw/ebcdic has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/87bdde1c1ac3105e8660db967869b1381610c758?hp=5eab0cdb5fb4522ee49456f11931f3132e298f8f>
- Log -----------------------------------------------------------------
commit 87bdde1c1ac3105e8660db967869b1381610c758
Author: Karl Williamson <pub...@khwilliamson.com>
Date: Sun Mar 10 22:17:31 2013 -0600
XXX See if changing \xE2 to \xE1 causes lex.t to work for EBCDIC
\xE2 is 'S' in EBCDIC, and so is going to be legal. \xE1 is not an
ASCII equivalent.
-----------------------------------------------------------------------
Summary of changes:
t/base/lex.t | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/t/base/lex.t b/t/base/lex.t
index b1c4a09..a63c55a 100644
--- a/t/base/lex.t
+++ b/t/base/lex.t
@@ -265,8 +265,8 @@ print ((exists $str{xyz::bar} ? "" : "not ")."ok $test\n");
++$test;
sub foo::::::bar { print "ok $test\n"; $test++ }
foo::::::bar;
-eval "\$x =\xE2foo";
-if ($@ =~ /Unrecognized character \\xE2; marked by <-- HERE after \$x =<--
HERE near column 5/) { print "ok $test\n"; } else { print "not ok $test\n"; }
+eval "\$x =\xE1foo";
+if ($@ =~ /Unrecognized character \\xE1; marked by <-- HERE after \$x =<--
HERE near column 5/) { print "ok $test\n"; } else { print "not ok $test\n"; }
$test++;
# Is "[~" scanned correctly?
--
Perl5 Master Repository
