- sv_setpv(PL_statname,SvPV(sv, PL_na));
-#ifdef HAS_LSTAT
- PL_laststatval = PerlLIO_lstat(SvPV(sv, PL_na),&PL_statcache);
-#else
- PL_laststatval = PerlLIO_stat(SvPV(sv, PL_na),&PL_statcache);
-#endif
- if (PL_laststatval < 0 && ckWARN(WARN_NEWLINE) && strchr(SvPV(sv, PL_na), '\n'))
- warner(WARN_NEWLINE, warn_nl, "lstat");
+ sv_setpv(PL_statname,SvPV(sv, n_a));
+ PL_laststatval = PerlLIO_lstat(SvPV(sv, n_a),&PL_statcache);
+ if (PL_laststatval < 0 && ckWARN(WARN_NEWLINE) && strchr(SvPV(sv, n_a), '\n'))
+ Perl_warner(aTHX_ WARN_NEWLINE, PL_warn_nl, "lstat");