X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xsutils.c;h=86620083af78be8f6479afbafc0589827bdeb338;hb=343ef7498d1a8623949697479cbfea3822ffafe9;hp=b22a263bbc546c539cc469a5cc86f0cd26f6f956;hpb=cfd0369c40b647df9444518ec26b924a57e14ac8;p=p5sagit%2Fp5-mst-13.2.git diff --git a/xsutils.c b/xsutils.c index b22a263..8662008 100644 --- a/xsutils.c +++ b/xsutils.c @@ -132,10 +132,11 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs) case 'e': if (memEQ(name, "uniqu", 5)) { if (SvTYPE(sv) == SVt_PVGV) { - if (negated) + if (negated) { GvUNIQUE_off(sv); - else + } else { GvUNIQUE_on(sv); + } } /* Hope this came from toke.c if not a GV. */ continue; @@ -305,8 +306,7 @@ usage: rv = ST(0); ST(0) = TARG; - if (SvGMAGICAL(rv)) - mg_get(rv); + SvGETMAGIC(rv); if (!(SvOK(rv) && SvROK(rv))) goto usage; sv = SvRV(rv);