diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-19 11:14:25 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-19 11:14:25 +0200 |
| commit | 0eedeed40b39b3e37aa3a674c182ccda0c738aa6 (patch) | |
| tree | 83c6a0cbecebb8de4c147d7ac6b5f51071ff048b /cpan/ExtUtils-Constant | |
| parent | 023257bf4912ddb30fcdb73a58bce3d84974b8dc (diff) | |
| download | perl-0eedeed40b39b3e37aa3a674c182ccda0c738aa6.tar.gz | |
Improve the generated C code for $xs_subname for Proxy Constant Subroutines.
Diffstat (limited to 'cpan/ExtUtils-Constant')
| -rw-r--r-- | cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm index 0005f13430..1d85abf85e 100644 --- a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm +++ b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm @@ -538,18 +538,17 @@ $xs_subname(sv) INPUT: SV * sv; PPCODE: -#ifdef SYMBIAN - sv = newSVpvf("%"SVf" is not a valid $package_sprintf_safe macro", sv); -#else +#ifndef SYMBIAN HV *${c_subname}_missing = get_missing_hash(aTHX); if (hv_exists_ent(${c_subname}_missing, sv, 0)) { sv = newSVpvf("Your vendor has not defined $package_sprintf_safe macro %" SVf ", used", sv); - } else { + } else +#endif + { sv = newSVpvf("%"SVf" is not a valid $package_sprintf_safe macro", sv); } -#endif PUSHs(sv_2mortal(sv)); DONT |