[win32] use a pidtable that grows dynamically for popen()

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

diff --git a/doio.c b/doio.c
index cc038e2..d8ce25d 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -816,7 +816,7 @@ my_stat(ARGSproto)
     GV* tmpgv;
 
     if (op->op_flags & OPf_REF) {
-       EXTEND(sp,1);
+       EXTEND(SP,1);
        tmpgv = cGVOP->op_gv;
       do_fstat:
        io = GvIO(tmpgv);
@@ -839,6 +839,7 @@ my_stat(ARGSproto)
     }
     else {
        SV* sv = POPs;
+       char *s;
        PUTBACK;
        if (SvTYPE(sv) == SVt_PVGV) {
            tmpgv = (GV*)sv;
@@ -849,11 +850,12 @@ my_stat(ARGSproto)
            goto do_fstat;
        }
 
+       s = SvPV(sv, na);
        statgv = Nullgv;
-       sv_setpv(statname,SvPV(sv, na));
+       sv_setpv(statname, s);
        laststype = OP_STAT;
-       laststatval = PerlLIO_stat(SvPV(sv, na),&statcache);
-       if (laststatval < 0 && dowarn && strchr(SvPV(sv, na), '\n'))
+       laststatval = PerlLIO_stat(s, &statcache);
+       if (laststatval < 0 && dowarn && strchr(s, '\n'))
            warn(warn_nl, "stat");
        return laststatval;
     }
@@ -865,7 +867,7 @@ my_lstat(ARGSproto)
     djSP;
     SV *sv;
     if (op->op_flags & OPf_REF) {
-       EXTEND(sp,1);
+       EXTEND(SP,1);
        if (cGVOP->op_gv == defgv) {
            if (laststype != OP_LSTAT)
                croak("The stat preceding -l _ wasn't an lstat");