This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
vxs.inc: Fix thinko
authorFather Chrysostomos <sprout@cpan.org>
Fri, 25 Oct 2013 12:57:47 +0000 (05:57 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 4 Jan 2014 13:10:04 +0000 (05:10 -0800)
This was causing test failures after rebasing against blead.

vxs.inc

diff --git a/vxs.inc b/vxs.inc
index 2552ce8..e63173b 100644 (file)
--- a/vxs.inc
+++ b/vxs.inc
@@ -374,7 +374,7 @@ VXS(version_is_alpha)
     {
        SV *lobj;
        VTYPECHECK(lobj, ST(0), "lobj");
-       if ( hv_exists(MUTABLE_HV(SvRV(lobj)), "alpha", 5 ) )
+       if ( hv_exists(MUTABLE_HV(lobj), "alpha", 5 ) )
            XSRETURN_YES;
        else
            XSRETURN_NO;
@@ -447,7 +447,7 @@ VXS(version_is_qv)
     {
        SV *lobj;
        VTYPECHECK(lobj, ST(0), "lobj");
-       if ( hv_exists(MUTABLE_HV(SvRV(lobj)), "qv", 2 ) )
+       if ( hv_exists(MUTABLE_HV(lobj), "qv", 2 ) )
            XSRETURN_YES;
        else
            XSRETURN_NO;