Support for perl 5.8

[perl/modules/indirect.git] / t / 10-good.t

diff --git a/t/10-good.t b/t/10-good.t
index 32b62ecbeeb9994f2134fdca9ceaf0e3cf46d355..d428d1fdf600d79f0ea08d7d9c12f93ab5fe33d5 100644 (file)
--- a/t/10-good.t
+++ b/t/10-good.t
@@ -147,9 +147,9 @@ meh $x, 1, 2;
 meh $y;
 ####
 meh $y, 1, 2;
-#### # use feature 'state'; state $z
+#### $] < 5.010 # use feature 'state'; state $z
 meh $z;
-#### # use feature 'state'; state $z
+#### $] < 5.010 # use feature 'state'; state $z
 meh $z, 1, 2;
 ####
 print;
@@ -163,9 +163,9 @@ print $x "oh hai\n";
 print $y;
 ####
 print $y "dongs\n";
-#### # use feature 'state'; state $z
+#### $] < 5.010 # use feature 'state'; state $z
 print $z;
-#### # use feature 'state'; state $z
+#### $] < 5.010 # use feature 'state'; state $z
 print $z "hlagh\n";
 ####
 print STDOUT "bananananananana\n";