diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-09-02 16:21:43 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-09-02 16:21:43 +0100 |
| commit | 69f857902b1b105d96448597da9c4bc9cd4e90a3 (patch) | |
| tree | 0391a5a71e88e17021543f566d07711395e79fa6 /XSUB.h | |
| parent | d6747b7ae5ffdaaf8364760ca2abdcb734c664c8 (diff) | |
| download | perl-69f857902b1b105d96448597da9c4bc9cd4e90a3.tar.gz | |
In XS_VERSION_BOOTCHECK, correct the flags argument of get_sv() to 0.
It should not be FALSE, because it's a bitmap, not a boolean.
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; \ |