$SIG{__WARN__} = sub { push @WARN, @_ };
}
+require File::Spec;
+
$| = 1;
-print "1..73\n";
+print "1..74\n";
use charnames ':full';
}
sub to_bytes {
- pack"a*", shift;
+ unpack"U0a*", shift;
}
{
# ---- Alias extensions
my $tmpfile = "tmp0000";
-my $alifile = "../lib/unicore/xyzzy_alias.pl";
+my $alifile = File::Spec->catfile(File::Spec->updir, qw(lib unicore xyzzy_alias.pl));
my $i = 0;
1 while -e ++$tmpfile;
END { if ($tmpfile) { 1 while unlink $tmpfile; } }
1 while unlink $alifile;
}
+# [perl #30409] charnames.pm clobbers default variable
+$_ = 'foobar';
+eval "use charnames ':full';";
+print "not " unless $_ eq 'foobar';
+print "ok 74\n";
+
__END__
# unsupported pragma
use charnames ":scoobydoo";
use charnames ":short", ":alias" => { e_ACUTE => "LATIN:e WITH ACUTE", "a_ACUTE" };
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
EXPECT
-Use of uninitialized value in string eq at
+Use of uninitialized value
########
# alias with hashref two aliases
use charnames ":short", ":alias" => {