In XS_VERSION_BOOTCHECK, correct the flags argument of get_sv() to 0.
authorNicholas Clark <nick@ccl4.org>
Thu, 2 Sep 2010 15:21:43 +0000 (16:21 +0100)
committerNicholas Clark <nick@ccl4.org>
Thu, 2 Sep 2010 15:21:43 +0000 (16:21 +0100)
It should not be FALSE, because it's a bitmap, not a boolean.

XSUB.h

diff --git a/XSUB.h b/XSUB.h
index 939a7a6..7a7e882 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -306,10 +306,10 @@ Rethrows a previously caught exception.  See L<perlguts/"Exception Handling">.
        else {                                                          \
            /* XXX GV_ADDWARN */                                        \
            _sv = get_sv(Perl_form(aTHX_ "%s::%s", module,              \
-                               vn = "XS_VERSION"), FALSE);             \
+                               vn = "XS_VERSION"), 0);                 \
            if (!_sv || !SvOK(_sv))                                     \
                _sv = get_sv(Perl_form(aTHX_ "%s::%s", module,          \
-                                   vn = "VERSION"), FALSE);            \
+                                   vn = "VERSION"), 0);                \
        }                                                               \
        if (_sv) {                                                      \
            SV *xpt = NULL;                                             \