| Subject: | [PATCH] Compatibility with CV-in-stash optimisation |
This hunk from the pach in ticket #123314 gets this module working with the new optimisation that I hope will be included in perl 5.28. For more information on the optimisation, see: https://rt.perl.org/Ticket/Display.html?id=132252#txn-1500037
| Subject: | tmp.text |
diff -rup Variable-Magic-0.61-vFSvfU/t/lib/VPIT/TestHelpers.pm Variable-Magic-0.61-0/t/lib/VPIT/TestHelpers.pm
--- Variable-Magic-0.61-vFSvfU/t/lib/VPIT/TestHelpers.pm 2015-07-20 15:33:52.000000000 -0700
+++ Variable-Magic-0.61-0/t/lib/VPIT/TestHelpers.pm 2017-10-17 19:44:34.000000000 -0700
@@ -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')->(@_) }