This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Oops; fix threaded build
[perl5.git] / sv.h
diff --git a/sv.h b/sv.h
index c2b0f57..b839a63 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -1823,6 +1823,7 @@ mg.c:1024: warning: left-hand operand of comma expression has no effect
     (SvGAMAGIC(sv)                                    \
        ? utf8_length((U8 *)(pv), (U8 *)(pv)+(bytelen)) \
        : sv_len_utf8(sv))
+# define sv_or_pv_pos_u2b(sv,s,p,lp) S_sv_or_pv_pos_u2b(aTHX_ sv,s,p,lp)
 #endif
 
 /*