print
"# Again! Again! [but this time as eval, and not the explosive one]\n";
# and now we've safely done them all as separate files, check that the
- # evals do the same thing. Hopefully doing it later sucessfully decouples
+ # evals do the same thing. Hopefully doing it later successfully decouples
# the previous tests from anything messy that may go wrong with the evals.
foreach (@tests) {
my ($why, $prog, $expect) = @$_;
# before the patch, the eval died with an error like:
# "my" variable $strict::VERSION can't be in a package
#
-ok('' eq runperl(prog => <<'CODE'), "change #17928");
- my $code = qq{ my \$\xe3\x83\x95\xe3\x83\xbc = 5; };
+SKIP: {
+ skip("Embedded UTF-8 does not work in EBCDIC", 1) if ord("A") == 193;
+ ok('' eq runperl(prog => <<'CODE'), "change #17928");
+ my $code = qq{ my \$\xe3\x83\x95\xe3\x83\xbc = 5; };
{
use utf8;
eval $code;
print $@ if $@;
}
CODE
+}
{
use utf8;
is("@i", "60 62 58 50 52 48 70 72 68", "utf8 heredoc index and rindex");
}
-{
+SKIP: {
+ skip("Embedded UTF-8 does not work in EBCDIC", 1) if ord("A") == 193;
use utf8;
eval qq{is(q \xc3\xbc test \xc3\xbc, qq\xc2\xb7 test \xc2\xb7,
"utf8 quote delimiters [perl #16823]");};