diff options
| -rw-r--r-- | t/op/stash.t | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/t/op/stash.t b/t/op/stash.t index 81d6d545bb..2c085a30c3 100644 --- a/t/op/stash.t +++ b/t/op/stash.t @@ -69,7 +69,7 @@ ok( eval q{ no warnings 'deprecated'; defined %schoenmaker:: }, 'works in eval(" } SKIP: { - eval { require B; 1 } or skip "no B", 24; + eval { require B; 1 } or skip "no B", 23; *b = \&B::svref_2object; my $CVf_ANON = B::CVf_ANON(); @@ -136,15 +136,6 @@ SKIP: { is($st, q/__ANON__/, "...and an __ANON__ stash"); } - # [perl #58530] - fresh_perl_is( - 'sub foo { 1 }; use overload q/""/ => \&foo;' . - 'delete $main::{foo}; bless []', - "", - {}, - "no segfault with overload/deleted stash entry [#58530]", - ); - # CvSTASH should be null on a named sub if the stash has been deleted { package FOO; @@ -199,6 +190,15 @@ SKIP: { } } +# [perl #58530] +fresh_perl_is( + 'sub foo { 1 }; use overload q/""/ => \&foo;' . + 'delete $main::{foo}; bless []', + "", + {}, + "no segfault with overload/deleted stash entry [#58530]", +); + # make sure having a sub called __ANON__ doesn't confuse perl. { |