GV* tmpgv;
if (op->op_flags & OPf_REF) {
- EXTEND(sp,1);
+ EXTEND(SP,1);
tmpgv = cGVOP->op_gv;
do_fstat:
io = GvIO(tmpgv);
}
else {
SV* sv = POPs;
+ char *s;
PUTBACK;
if (SvTYPE(sv) == SVt_PVGV) {
tmpgv = (GV*)sv;
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;
}
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");