diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-12-20 07:05:56 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-21 07:06:13 -0800 |
| commit | 7a30efb0690a79ec5b73a44d8d8dc26e51f5814c (patch) | |
| tree | 6acacf8f16eb362eeffaa99a1a4fd21d124836ee /ext/VMS-DCLsym | |
| parent | de915ff5c336595e7d97c39f774b25be56a685be (diff) | |
| download | perl-7a30efb0690a79ec5b73a44d8d8dc26e51f5814c.tar.gz | |
Remove bogus GIMME check from DCLsym.xs
GIMME used to return 0 for scalar context. As of 5.12, it never
returns 0. As it happens, this function (_getsym) is only ever called
in one spot (by getsym) and in list context. So don’t even bother
with the check.
Diffstat (limited to 'ext/VMS-DCLsym')
| -rw-r--r-- | ext/VMS-DCLsym/DCLsym.xs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/ext/VMS-DCLsym/DCLsym.xs b/ext/VMS-DCLsym/DCLsym.xs index f0f19f4d16..b638f66f14 100644 --- a/ext/VMS-DCLsym/DCLsym.xs +++ b/ext/VMS-DCLsym/DCLsym.xs @@ -44,13 +44,11 @@ _getsym(name) if (retsts & 1) { PUSHs(sv_2mortal(newSVpv(valdsc.dsc$w_length ? valdsc.dsc$a_pointer : "",valdsc.dsc$w_length))); - if (GIMME) { - EXTEND(sp,2); /* just in case we're at the end of the stack */ - if (tbltype == LIB$K_CLI_LOCAL_SYM) + EXTEND(sp,2); /* just in case we're at the end of the stack */ + if (tbltype == LIB$K_CLI_LOCAL_SYM) PUSHs(sv_2mortal(newSVpv("LOCAL",5))); - else + else PUSHs(sv_2mortal(newSVpv("GLOBAL",6))); - } _ckvmssts(lib$sfree1_dd(&valdsc)); } else { |