diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2019-10-27 17:47:17 +0000 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-03-01 13:06:05 -0700 |
commit | 9d0469db4f4def798c045db1f50387414e3b0559 (patch) | |
tree | 0629a4b920710b53e4adabd9b6ceac253bc84c29 /inline.h | |
parent | a887b094897ae1eed6cbe37f970de3899fb0839b (diff) | |
download | perl-9d0469db4f4def798c045db1f50387414e3b0559.tar.gz |
SvTRUE might need to take aTHX
Diffstat (limited to 'inline.h')
-rw-r--r-- | inline.h | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -196,8 +196,10 @@ Perl_ReANY(const REGEXP * const re) /* ------------------------------- sv.h ------------------------------- */ PERL_STATIC_INLINE bool -Perl_SvTRUE(SV *sv) { - return LIKELY(sv) && SvTRUE_NN(sv); +Perl_SvTRUE(pTHX_ SV *sv) { + if (!LIKELY(sv)) + return FALSE; + return SvTRUE_NN(sv); } PERL_STATIC_INLINE SV * |