X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVPIT-TestHelpers.git;a=blobdiff_plain;f=lib%2FVPIT%2FTestHelpers.pm;h=42ff1897e3a869c6f79028347bc6f4784cad5425;hp=abee64079108f825b1be4d9d0138f6dccc5c9a03;hb=ff556dd3539e55eb8d925721dd650c57973f39c4;hpb=682b551acf9fe02f67ad76a2c1825a71c92bf762

diff --git a/lib/VPIT/TestHelpers.pm b/lib/VPIT/TestHelpers.pm
index abee640..42ff189 100644
--- a/lib/VPIT/TestHelpers.pm
+++ b/lib/VPIT/TestHelpers.pm
@@ -25,7 +25,8 @@ my $test_sub = sub {
   require Test::More;
   $stash = \%Test::More::;
  }
- return $stash->{$sub};
+ my $glob = $stash->{$sub};
+ return $glob ? *$glob{CODE} : undef;
 };
 
 sub skip_all { $test_sub->('plan')->(skip_all => $_[0]) }