X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mg.c;h=1355740cb346d4aeada150d3607c07b0eb2b2178;hb=683d4eee6f3b749aec29cc849f45404c6acda85e;hp=54ca0442c312728218483a0de51cbc3c42174117;hpb=5cd24f17b72b10f8506d70fba1ec4dd25224c257;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mg.c b/mg.c
index 54ca044..1355740 100644
--- a/mg.c
+++ b/mg.c
@@ -1536,7 +1536,8 @@ MAGIC* mg;
 		    break;
 		gary[i] = I_V(atof(p));
 	    }
-	    (void)setgroups(i, gary);
+	    if (i)
+		(void)setgroups(i, gary);
 	}
 #else  /* HAS_SETGROUPS */
 	egid = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);