X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-good.t;h=91b1ac04d0360b56a2a156111e6b8cd660aa1f4b;hb=b7b7a0878db622b9fabce664554b51d965eb7bc7;hp=32b62ecbeeb9994f2134fdca9ceaf0e3cf46d355;hpb=4575bb0d8b810adecce86133968da53594a9ec40;p=perl%2Fmodules%2Findirect.git diff --git a/t/10-good.t b/t/10-good.t index 32b62ec..91b1ac0 100644 --- 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,15 +163,15 @@ 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"; #### $x->foo($pkg->$cb) -#### +#### "seems to segfault with strict libc implementations" # $obj = "apple ${\(new Hlagh)} pear" #### $obj = "apple @{[new Hlagh]} pear"