From: Vincent Pit <perl@profvince.com>
Date: Sat, 4 Nov 2017 14:41:05 +0000 (+0100)
Subject: Update VPIT::TestHelpers to 15e8aee3
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FHash-Normalize.git;a=commitdiff_plain

Update VPIT::TestHelpers to 15e8aee3
---

diff --git a/t/lib/VPIT/TestHelpers.pm b/t/lib/VPIT/TestHelpers.pm
index 10550ee..f47bee1 100644
--- a/t/lib/VPIT/TestHelpers.pm
+++ b/t/lib/VPIT/TestHelpers.pm
@@ -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')->(@_) }