This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Inline the SvGETMAGIC call directly rather than via the macro
authorPaul "LeoNerd" Evans <leonerd@leonerd.org.uk>
Sun, 27 Oct 2019 17:50:39 +0000 (17:50 +0000)
committerKarl Williamson <khw@cpan.org>
Sun, 1 Mar 2020 20:06:05 +0000 (13:06 -0700)
inline.h

index e468832..5639731 100644 (file)
--- a/inline.h
+++ b/inline.h
@@ -199,7 +199,8 @@ PERL_STATIC_INLINE bool
 Perl_SvTRUE(pTHX_ SV *sv) {
     if (!LIKELY(sv))
         return FALSE;
-    return SvTRUE_NN(sv);
+    SvGETMAGIC(sv);
+    return SvTRUE_nomg_NN(sv);
 }
 
 PERL_STATIC_INLINE SV *