X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp.c;h=01a90e28557a7dded704bf973bd00d2157c55908;hb=ccc2aad8d8e6103f3ad40cea21552777ca27f419;hp=4210bd6c6f1820768287d157a150c2f4494bc98c;hpb=155aba94f677ac771761a1f510964fe5b21524ed;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp.c b/pp.c
index 4210bd6..01a90e2 100644
--- a/pp.c
+++ b/pp.c
@@ -426,7 +426,7 @@ PP(pp_prototype)
 			seen_question = 1;
 			str[n++] = ';';
 		    }
-		    else if (seen_question) 
+		    else if (n && str[0] == ';' && seen_question) 
 			goto set;	/* XXXX system, exec */
 		    if ((oa & (OA_OPTIONAL - 1)) >= OA_AVREF 
 			&& (oa & (OA_OPTIONAL - 1)) <= OA_HVREF) {
@@ -1398,7 +1398,7 @@ PP(pp_negate)
 		    RETURN;
 		}
 		else if (SvUVX(sv) <= IV_MAX) {
-		    SETi(-SvUVX(sv));
+		    SETi(-SvIVX(sv));
 		    RETURN;
 		}
 	    }