X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=sv.h;h=39441b41dcfec9afd94e242ab87351741b935e8b;hb=9df4da27fbed528c1795e76111bdb359928b1a63;hp=92dec20a7303e19e1177bf0728abde28e4f82cb7;hpb=19692e8d256164f96817d6df6ecee26c3cda4ae9;p=p5sagit%2Fp5-mst-13.2.git diff --git a/sv.h b/sv.h index 92dec20..39441b4 100644 --- a/sv.h +++ b/sv.h @@ -174,7 +174,7 @@ perform the upgrade if necessary. See C. # endif #endif -#define SvREFCNT_dec(sv) sv_free((SV*)sv) +#define SvREFCNT_dec(sv) sv_free((SV*)(sv)) #define SVTYPEMASK 0xff #define SvTYPE(sv) ((sv)->sv_flags & SVTYPEMASK) @@ -1206,4 +1206,5 @@ Returns a pointer to the character buffer. struct clone_params { AV* stashes; UV flags; + PerlInterpreter *proto_perl; };