This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
in Carp, fix circular dep on Perl 5.6
[perl5.git] / dist / Carp / t / swash.t
1 BEGIN { print "1..1\n"; }
2 use Carp;
3 my $x = "foo\x{666}"; $x =~ /foo\p{Alnum}/;
4 print "ok 1\n";
5 1;