| Subject: | [PATCH] Compatibility with CV-in-stash optimisation |
The patch from ticket #123374 works for this distribution as well. It is attached here, too.
| 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')->(@_) }