X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_sys.c;h=0d2c970ff177ab961f7067e0c7efaa1636968ac4;hb=0598b5ab3697b872539de6ed6dc1522b873602e1;hp=cfbf9182eac773ec0590b31be7d00d2652387a70;hpb=5dd60a5265f21462970f7a888d7c260ac7002dae;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_sys.c b/pp_sys.c
index cfbf918..0d2c970 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4318,6 +4318,7 @@ PP(pp_setpgrp)
     if (MAXARG < 2) {
 	pgrp = 0;
 	pid = 0;
+	XPUSHi(-1);
     }
     else {
 	pgrp = POPi;