X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F20-good.t;h=87e53cb010b298a0b5fd93cd86d5f0ea4001ad97;hp=0f482a55cf0a3bce2d3026b11fa39457e8215261;hb=a14a12252b6c78b0f231e4d5e05480c90caac29c;hpb=0cc2d6ec622415ec5a39849d0837097c69c73eb5 diff --git a/t/20-good.t b/t/20-good.t index 0f482a5..87e53cb 100644 --- a/t/20-good.t +++ b/t/20-good.t @@ -14,7 +14,7 @@ use Test::More tests => 56 * 4; my ($obj, $pkg, $cb, $x, @a); our $y; sub meh; -sub try (&); +sub zap (&); { local $/ = "####"; @@ -178,10 +178,10 @@ system $x $x, @a; #### system { $a[0] } @a; #### -try { }; +zap { }; #### -try { 1; }; +zap { 1; }; #### -try { 1; 1; }; +zap { 1; 1; }; #### -try { try { }; 1; }; +zap { zap { }; 1; };