perl 5.003_05: unixish.h

[p5sagit/p5-mst-13.2.git] / doop.c

diff --git a/doop.c b/doop.c
index c906db7..470ec06 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -320,7 +320,7 @@ register SV **sarg;
            /* end of switch, copy results */
            *t = ch;
            if (xs == buf && xlen >= sizeof(buf)) {     /* Ooops! */
-               fputs("panic: sprintf overflow - memory corrupted!\n",stderr);
+               PerlIO_puts(PerlIO_stderr(),"panic: sprintf overflow - memory corrupted!\n");
                my_exit(1);
            }
            SvGROW(sv, SvCUR(sv) + (f - s) + xlen + 1 + pre + post);
@@ -494,11 +494,11 @@ register SV *sv;
                ++count;
            }
            else {
-               if (len < rslen)
+               if (len < rslen - 1)
                    goto nope;
                len -= rslen - 1;
                s -= rslen - 1;
-               if (bcmp(s, rsptr, rslen))
+               if (memcmp(s, rsptr, rslen))
                    goto nope;
                count += rslen;
            }
@@ -531,6 +531,8 @@ SV *right;
     register char *rc = SvPV(right, rightlen);
     register I32 len;
     I32 lensave;
+    char *lsave = lc;
+    char *rsave = rc;
 
     dc = SvPV_force(sv,na);
     len = leftlen < rightlen ? leftlen : rightlen;
@@ -588,9 +590,6 @@ SV *right;
     }
 #endif
     {
-       char *lsave = lc;
-       char *rsave = rc;
-       
        switch (optype) {
        case OP_BIT_AND:
            while (len--)
@@ -622,9 +621,7 @@ dARGS
 {
     dSP;
     HV *hv = (HV*)POPs;
-    I32 i;
     register HE *entry;
-    char *tmps;
     SV *tmpstr;
     I32 dokeys =   (op->op_type == OP_KEYS);
     I32 dovalues = (op->op_type == OP_VALUES);
@@ -638,6 +635,7 @@ dARGS
     (void)hv_iterinit(hv);     /* always reset iterator regardless */
 
     if (GIMME != G_ARRAY) {
+       I32 i;
        dTARGET;
 
        if (!SvRMAGICAL(hv) || !mg_find((SV*)hv,'P'))
@@ -659,21 +657,17 @@ dARGS
     PUTBACK;   /* hv_iternext and hv_iterval might clobber stack_sp */
     while (entry = hv_iternext(hv)) {
        SPAGAIN;
-       if (dokeys) {
-           tmps = hv_iterkey(entry,&i);        /* won't clobber stack_sp */
-           if (!i)
-               tmps = "";
-           XPUSHs(sv_2mortal(newSVpv(tmps,i)));
-       }
+       if (dokeys)
+           XPUSHs(hv_iterkeysv(entry));        /* won't clobber stack_sp */
        if (dovalues) {
            tmpstr = NEWSV(45,0);
            PUTBACK;
            sv_setsv(tmpstr,hv_iterval(hv,entry));
            SPAGAIN;
            DEBUG_H( {
-               sprintf(buf,"%d%%%d=%d\n",entry->hent_hash,
-                   HvMAX(hv)+1,entry->hent_hash & HvMAX(hv));
-               sv_setpv(tmpstr,buf);
+                       sprintf(buf,"%d%%%d=%d\n", HeHASH(entry),
+                               HvMAX(hv)+1, HeHASH(entry) & HvMAX(hv));
+                       sv_setpv(tmpstr,buf);
            } )
            XPUSHs(sv_2mortal(tmpstr));
        }