#
#
-plan tests => 145;
+plan tests => 146;
{
# bug id 20001009.001
}
{
- my $a =3D "456\xb6";
+ my $a = "456\xb6";
utf8::upgrade($a);
- my $b =3D "123456\xb6";
- $b =3D~ s/^...//;
+ my $b = "123456\xb6";
+ $b =~ s/^...//;
utf8::upgrade($b);
is($b, $a, "utf8::upgrade OffsetOK");
}
+
+{
+ fresh_perl_like ('use utf8; utf8::moo()',
+ qr/Undefined subroutine utf8::moo/, {stderr=>1},
+ "Check Carp is loaded for AUTOLOADing errors")
+}