diff options
| author | John Peacock <jpeacock@cpan.org> | 2017-04-24 20:06:01 -0400 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2017-06-01 09:12:11 -0400 |
| commit | dddb22758b5060ae9de978fbb03317185af97b24 (patch) | |
| tree | b29bc938d145242ceda016a20b338fbaa0e31abc /vxs.inc | |
| parent | 53fdf12aede2fd58b0c5ee236a58025184f49def (diff) | |
| download | perl-dddb22758b5060ae9de978fbb03317185af97b24.tar.gz | |
Update core with version 0.9918
Diffstat (limited to 'vxs.inc')
| -rw-r--r-- | vxs.inc | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -138,7 +138,7 @@ VXS(universal_version) name, SvPVx_nolen_const(req)); #else Perl_croak(aTHX_ - "%"HEKf" does not define $%"HEKf + "%" HEKf " does not define $%"HEKf "::VERSION--version check failed", HEKfARG(name), HEKfARG(name)); #endif @@ -146,7 +146,8 @@ VXS(universal_version) else { #if PERL_VERSION >= 8 Perl_croak(aTHX_ - "%"SVf" defines neither package nor VERSION--version check failed", + "%" SVf " defines neither package nor VERSION--" + "version check failed", (void*)(ST(0)) ); #else Perl_croak(aTHX_ "%s does not define $%s::VERSION--version check failed", @@ -162,7 +163,7 @@ VXS(universal_version) } if ( VCMP( req, sv ) > 0 ) { - if ( hv_existss(MUTABLE_HV(SvRV(req)), "qv") ) { + if ( hv_exists(MUTABLE_HV(SvRV(req)), "qv", 2 ) ) { req = VNORMAL(req); sv = VNORMAL(sv); } @@ -170,8 +171,8 @@ VXS(universal_version) req = VSTRINGIFY(req); sv = VSTRINGIFY(sv); } - Perl_croak(aTHX_ "%"HEKf" version %"SVf" required--" - "this is only version %"SVf"", HEKfARG(HvNAME_HEK(pkg)), + Perl_croak(aTHX_ "%" HEKf " version %" SVf " required--" + "this is only version %" SVf, HEKfARG(HvNAME_HEK(pkg)), SVfARG(sv_2mortal(req)), SVfARG(sv_2mortal(sv))); } |