X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F20-bad.t;h=5abb4ad9c1d262429b66f9b33753609e6e432a71;hp=65511fd09a06f68cf1d1281179113a78c6b13e82;hb=4575bb0d8b810adecce86133968da53594a9ec40;hpb=256486fe8cf158890b5bd5048d7467d6809b4f2e diff --git a/t/20-bad.t b/t/20-bad.t index 65511fd..5abb4ad 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; -#### +#### # use feature 'state'; state $z meh $z; -#### +#### # use feature 'state'; state $z meh $z 1, 2; -#### +#### # use feature 'state'; state $z meh $z, 1, 2; #### package sploosh;