diff -bu SUPER-1.20190531-3/t/bugs.t~ SUPER-1.20190531-3/t/bugs.t --- SUPER-1.20190531-3/t/bugs.t~ 2019-06-01 01:57:31.000000000 +0200 +++ SUPER-1.20190531-3/t/bugs.t 2019-07-04 17:47:23.000000000 +0200 @@ -18,17 +18,17 @@ { # The '...' class has a method named 'chumbucket' and inherits from # Pirate. - no strict 'refs'; + no strict; *{'...::chumbucket'} = sub { local *__ANON__ = 'chumbucket'; $_[0]->SUPER }; @{'...::ISA'} = 'Pirate'; my $obj = bless [], '...'; - eval { is( $obj->chumbucket, Pirate->chumbucket, "Class '...'" ) }; - fail( "Class '...' ($@)" ) if $@; + eval { is( $obj->chumbucket, Pirate->chumbucket, "Class 'x...'" ) }; + fail( "Class 'x...' ($@)" ) if $@; } { - no strict 'refs'; + no strict; *{"\n::four_bells"} = sub { local *__ANON__ = 'four_bells'; $_[0]->SUPER }; @{"\n::ISA"} = 'Pirate'; @@ -38,8 +38,7 @@ } { - no strict 'refs'; - + no strict; *{'0::keelhaul'} = sub { local *__ANON__ = 'keelhaul'; $_[0]->SUPER }; @{'0::ISA'} = 'Pirate';