This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
vxs.inc: use new SvPVCLEAR and constant string friendly macros
authorYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 09:14:27 +0000 (11:14 +0200)
committerYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 11:28:02 +0000 (13:28 +0200)
vxs.inc

diff --git a/vxs.inc b/vxs.inc
index a047b2c..d246837 100644 (file)
--- a/vxs.inc
+++ b/vxs.inc
@@ -162,7 +162,7 @@ VXS(universal_version)
        }
 
        if ( VCMP( req, sv ) > 0 ) {
-           if ( hv_exists(MUTABLE_HV(SvRV(req)), "qv", 2 ) ) {
+           if ( hv_existss(MUTABLE_HV(SvRV(req)), "qv") ) {
                req = VNORMAL(req);
                sv  = VNORMAL(sv);
            }