summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorYitzchak Scott-Thoennes <sthoenna@efn.org>2004-12-20 08:08:56 -0800
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-01-21 10:57:48 +0000
commit082c32770bf192bebd41f5e51c0db6fa112334be (patch)
tree5986ea8db8fda2cca01e2b69759fdb3474dd757b /pp_sys.c
parentd6e8851c54ac45b468e4490b7a0abd76c4cd1dd7 (diff)
downloadperl-082c32770bf192bebd41f5e51c0db6fa112334be.tar.gz
Re: [PATCH] File::Find dies on find({follow=>1, ...}) on Win32
Message-ID: <20041221000856.GA2924@efn.org> p4raw-id: //depot/perl@23842
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/pp_sys.c b/pp_sys.c
index d848f730d2..0bb716554f 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2846,12 +2846,10 @@ PP(pp_stat)
}
sv_setpv(PL_statname, SvPV(sv,n_a));
PL_statgv = Nullgv;
-#ifdef HAS_LSTAT
PL_laststype = PL_op->op_type;
if (PL_op->op_type == OP_LSTAT)
PL_laststatval = PerlLIO_lstat(SvPV(PL_statname, n_a), &PL_statcache);
else
-#endif
PL_laststatval = PerlLIO_stat(SvPV(PL_statname, n_a), &PL_statcache);
if (PL_laststatval < 0) {
if (ckWARN(WARN_NEWLINE) && strchr(SvPV(PL_statname, n_a), '\n'))