diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-09-21 14:27:19 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-09-21 14:27:19 +0100 |
| commit | 575f055216d48b9f31b3f00143a8d474fcf7ad80 (patch) | |
| tree | dbe8f8346e4f5eca140c033668ee275483b71ba4 /cpan/ExtUtils-Constant | |
| parent | 8c5ae9a317f870fc7f907bff15be2ed3bcb7b7a4 (diff) | |
| download | perl-575f055216d48b9f31b3f00143a8d474fcf7ad80.tar.gz | |
Tweak ExtUtils::Constant::ProxySubs to use hv_exists_ent().
Previously it was using hv_exists(), requiring extra code to unpack the SV and
convert it to the correct string form for the hash API.
Diffstat (limited to 'cpan/ExtUtils-Constant')
| -rw-r--r-- | cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm index c3fe8ed3c5..7b5af870f5 100644 --- a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm +++ b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm @@ -9,7 +9,7 @@ require ExtUtils::Constant::XS; use ExtUtils::Constant::Utils qw(C_stringify); use ExtUtils::Constant::XS qw(%XS_TypeSet); -$VERSION = '0.06'; +$VERSION = '0.07'; @ISA = 'ExtUtils::Constant::XS'; %type_to_struct = @@ -527,13 +527,12 @@ $xs_subname(sv) STRLEN len; INPUT: SV * sv; - const char * s = SvPV(sv, len); PPCODE: #ifdef SYMBIAN sv = newSVpvf("%"SVf" is not a valid $package_sprintf_safe macro", sv); #else HV *${c_subname}_missing = get_missing_hash(aTHX); - if (hv_exists(${c_subname}_missing, s, SvUTF8(sv) ? -(I32)len : (I32)len)) { + if (hv_exists_ent(${c_subname}_missing, sv, 0)) { sv = newSVpvf("Your vendor has not defined $package_sprintf_safe macro %" SVf ", used", sv); } else { |