]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Update VPIT::TestHelpers to 15e8aee3 rt123374
authorVincent Pit <perl@profvince.com>
Sat, 4 Nov 2017 14:57:41 +0000 (15:57 +0100)
committerVincent Pit <perl@profvince.com>
Sat, 4 Nov 2017 14:57:41 +0000 (15:57 +0100)
t/lib/VPIT/TestHelpers.pm

index 10550eec28c139e43612a455205230900984c994..f47bee1e5e1f7b222f56a6520eb50e59162593c1 100644 (file)
@@ -97,7 +97,9 @@ my $test_sub = sub {
  }
 
  my $glob = $stash->{$sub};
- return $glob ? *$glob{CODE} : undef;
+ return ref \$glob eq 'GLOB' ? *$glob{CODE}
+      : ref  $glob eq 'CODE' ?  $glob
+      :                          undef;
 };
 
 sub skip { $test_sub->('skip')->(@_) }