diff options
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))); } |