}
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();
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;
}
}
+# [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.
{