X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-good.t;h=91b1ac04d0360b56a2a156111e6b8cd660aa1f4b;hb=b7b7a0878db622b9fabce664554b51d965eb7bc7;hp=da9b2d734fd6dd7b903691758ddbafceb20fb292;hpb=256486fe8cf158890b5bd5048d7467d6809b4f2e;p=perl%2Fmodules%2Findirect.git

diff --git a/t/10-good.t b/t/10-good.t
index da9b2d7..91b1ac0 100644
--- a/t/10-good.t
+++ b/t/10-good.t
@@ -11,11 +11,8 @@ use warnings;
 
 use Test::More tests => 52 * 4;
 
-use feature 'state';
-
 my ($obj, $pkg, $cb, $x, @a);
 our $y;
-state $z;
 sub meh;
 
 {
@@ -150,9 +147,9 @@ meh $x, 1, 2;
 meh $y;
 ####
 meh $y, 1, 2;
-####
+#### $] < 5.010 # use feature 'state'; state $z
 meh $z;
-####
+#### $] < 5.010 # use feature 'state'; state $z
 meh $z, 1, 2;
 ####
 print;
@@ -166,15 +163,15 @@ print $x "oh hai\n";
 print $y;
 ####
 print $y "dongs\n";
-####
+#### $] < 5.010 # use feature 'state'; state $z
 print $z;
-####
+#### $] < 5.010 # use feature 'state'; state $z
 print $z "hlagh\n";
 ####
 print STDOUT "bananananananana\n";
 ####
 $x->foo($pkg->$cb)
-####
+#### "seems to segfault with strict libc implementations" #
 $obj = "apple ${\(new Hlagh)} pear"
 ####
 $obj = "apple @{[new Hlagh]} pear"