X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F20-bad.t;h=c480d6c0a4720dca3a614caab688f33a6ba5da55;hb=d8064d5f5037d23c51e6e62386f32e65cef50d33;hp=65511fd09a06f68cf1d1281179113a78c6b13e82;hpb=256486fe8cf158890b5bd5048d7467d6809b4f2e;p=perl%2Fmodules%2Findirect.git diff --git a/t/20-bad.t b/t/20-bad.t index 65511fd..c480d6c 100644 --- a/t/20-bad.t +++ b/t/20-bad.t @@ -11,11 +11,8 @@ use warnings; use Test::More tests => 50 * 6 + 2; -use feature 'state'; - my ($obj, $x); our ($y, $bloop); -state $z; sub expect { my ($pkg) = @_; @@ -151,11 +148,11 @@ meh $y; meh $y 1, 2; #### meh $y, 1, 2; -#### +#### $] < 5.010 # use feature 'state'; state $z meh $z; -#### +#### $] < 5.010 # use feature 'state'; state $z meh $z 1, 2; -#### +#### $] < 5.010 # use feature 'state'; state $z meh $z, 1, 2; #### package sploosh;