diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2016-11-12 11:47:48 +0100 |
|---|---|---|
| committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2016-11-12 12:06:43 +0100 |
| commit | 07e4dd7aad22c455c54f35c4807bee7a81a93801 (patch) | |
| tree | 07254452f644f410117b7f2bbf341aef19600547 /ext/Opcode | |
| parent | 29e06fb2031a2ea268098a3a317d1bc63246cb02 (diff) | |
| download | perl-07e4dd7aad22c455c54f35c4807bee7a81a93801.tar.gz | |
Change hv_fetch(…, "…", …, …) to hv_fetchs(…, "…", …)
The dual-life dists all use Devel::PPPort, so they can use this function
even though it was only added in 5.10.
Diffstat (limited to 'ext/Opcode')
| -rw-r--r-- | ext/Opcode/Opcode.pm | 2 | ||||
| -rw-r--r-- | ext/Opcode/Opcode.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/Opcode/Opcode.pm b/ext/Opcode/Opcode.pm index 1b9f95f6e8..642b96e32c 100644 --- a/ext/Opcode/Opcode.pm +++ b/ext/Opcode/Opcode.pm @@ -6,7 +6,7 @@ use strict; our($VERSION, @ISA, @EXPORT_OK); -$VERSION = "1.38"; +$VERSION = "1.39"; use Carp; use Exporter (); diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index 5c8e22de82..5928fcf869 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -434,7 +434,7 @@ CODE: if (!SvROK(safe) || !SvOBJECT(SvRV(safe)) || SvTYPE(SvRV(safe))!=SVt_PVHV) croak("Not a Safe object"); - mask = *hv_fetch((HV*)SvRV(safe), "Mask",4, 1); + mask = *hv_fetchs((HV*)SvRV(safe), "Mask", 1); if (ONLY_THESE) /* *_only = new mask, else edit current */ sv_setsv(mask, sv_2mortal(new_opset(aTHX_ PERMITING ? opset_all : Nullsv))); else |