X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F34-glob.t;fp=t%2F34-glob.t;h=b5c8394fd86d3e43b483c5631a0fd45d08faf718;hb=a4a7bc01ee056f5f8662ca67bd4aac767e100cb7;hp=a6f26375ba343bf662b426bb0a19cd7f75c85b29;hpb=442d92f66e46ee6b39285eec14de33419f2854c9;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/t/34-glob.t b/t/34-glob.t index a6f2637..b5c8394 100644 --- a/t/34-glob.t +++ b/t/34-glob.t @@ -42,6 +42,8 @@ watch { watch { cast *b, $wiz } +{ }, 'cast 2'; } +{ }, 'scope end'; +%get = () if $] >= 5.013007; + watch { undef *a } +{ %get }, 'undef'; watch { dispell *a, $wiz } +{ %get }, 'dispell';