This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
stash.t: The [perl #58530] test should not be skipped
authorFather Chrysostomos <sprout@cpan.org>
Mon, 15 Nov 2010 22:41:46 +0000 (14:41 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 15 Nov 2010 22:52:12 +0000 (14:52 -0800)
t/op/stash.t

index 81d6d54..2c085a3 100644 (file)
@@ -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.
 
 {