diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-12-20 07:09:13 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-21 07:06:13 -0800 |
| commit | a89f9420b425626f009d1ec2f4137f8aee296940 (patch) | |
| tree | 5c45e8b6ceaa0bf7390621e8f55170398589b27a /ext/VMS-DCLsym | |
| parent | 7a30efb0690a79ec5b73a44d8d8dc26e51f5814c (diff) | |
| download | perl-a89f9420b425626f009d1ec2f4137f8aee296940.tar.gz | |
Remove bogus ST(0) assignment from DCLsym.xs
If we are using PPCODE, then simply assigning to ST(0) won’t return
the value, unless we also do SP++. So this function has been return-
ing an empty list on failure and the ST(0) assignment has been
doing nothing.
Diffstat (limited to 'ext/VMS-DCLsym')
| -rw-r--r-- | ext/VMS-DCLsym/DCLsym.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/VMS-DCLsym/DCLsym.xs b/ext/VMS-DCLsym/DCLsym.xs index b638f66f14..242be0f510 100644 --- a/ext/VMS-DCLsym/DCLsym.xs +++ b/ext/VMS-DCLsym/DCLsym.xs @@ -52,7 +52,7 @@ _getsym(name) _ckvmssts(lib$sfree1_dd(&valdsc)); } else { - ST(0) = &PL_sv_undef; /* error - we're returning undef, if anything */ + /* error - we'll return an empty list */ switch (retsts) { case LIB$_NOSUCHSYM: break; /* nobody home */; |