From: Father Chrysostomos <sprout@cpan.org>
Date: Mon, 15 Nov 2010 22:41:46 +0000 (-0800)
Subject: stash.t: The [perl #58530] test should not be skipped
X-Git-Tag: accepted/trunk/20130322.191538~6762
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=53226d62f432e693941b50e0f0c9c9ad3048d4e7;p=platform%2Fupstream%2Fperl.git

stash.t: The [perl #58530] test should not be skipped
---

diff --git a/t/op/stash.t b/t/op/stash.t
index 81d6d54..2c085a3 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.
 
 {