X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doio.c;h=d8ce25d18619a515c514ba5e78ef932fe350c6bc;hb=e17cb2a9c513ce1acd034452f9a933fcfa6c0129;hp=cc038e26cc6896bccc4499e3ed48a685aa98a9c6;hpb=3500f6799fed8479a1efcf408255735921bd3f48;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doio.c b/doio.c
index cc038e2..d8ce25d 100644
--- 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");