summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
inline | side by side (from parent 1:
6467175)
This fixes RT #69291 on perl 5.8.
- SV **val = hv_fetch(GvHV(PL_hintgv), __PACKAGE__, __PACKAGE_LEN__,
- indirect_hash);
+ SV **val = hv_fetch(GvHV(PL_hintgv), __PACKAGE__, __PACKAGE_LEN__, 0);
if (!val)
return 0;
hint = *val;
if (!val)
return 0;
hint = *val;
use Test::More tests => 1;
use Test::More tests => 1;
-SKIP: {
- skip 'This would require extensive work to be okay with perl 5.8' => 1
- if "$]" < 5.010;
-
local %^H = (a => 1);
require indirect;
local %^H = (a => 1);
require indirect;