X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doop.c;h=a87f7ef7acdfce0417fdc8200e211f19346b5b1a;hb=3c10ad8e31f7d77e71c048b1746912f41cb540f0;hp=f16ec6471fe528ec45a761c08e54c7d7a1c58654;hpb=046ff0edbba626fc32c37c08cfba99cfeef41b6d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doop.c b/doop.c
index f16ec64..a87f7ef 100644
--- a/doop.c
+++ b/doop.c
@@ -1,6 +1,6 @@
 /*    doop.c
  *
- *    Copyright (c) 1991-1994, Larry Wall
+ *    Copyright (c) 1991-1997, Larry Wall
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -667,6 +667,9 @@ dARGS
 
     (void)hv_iterinit(hv);	/* always reset iterator regardless */
 
+    if (op->op_private & OPpLEAVE_VOID)
+	RETURN;
+
     if (GIMME != G_ARRAY) {
 	I32 i;
 	dTARGET;
@@ -709,8 +712,10 @@ dARGS
 	    sv_setsv(tmpstr,hv_iterval(hv,entry));
 	    SPAGAIN;
 	    DEBUG_H( {
-			sprintf(buf,"%d%%%d=%d\n", HeHASH(entry),
-				HvMAX(hv)+1, HeHASH(entry) & HvMAX(hv));
+			sprintf(buf,"%lu%%%d=%lu\n",
+				(unsigned long)HeHASH(entry),
+				HvMAX(hv)+1,
+				(unsigned long)(HeHASH(entry) & HvMAX(hv)));
 			sv_setpv(tmpstr,buf);
 	    } )
 	    XPUSHs(sv_2mortal(tmpstr));