diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-02-16 07:25:36 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-17 16:40:07 +0000 |
| commit | 9cbac4c72b52b6fc0e8ad9e0050c6aa0b905a8e7 (patch) | |
| tree | 28d87cc28cbc8a6b13a2d131306618d4356fc771 /pp_sys.c | |
| parent | 675d96b54a60143fa8ba5fa0a3543e6041006509 (diff) | |
| download | perl-9cbac4c72b52b6fc0e8ad9e0050c6aa0b905a8e7.tar.gz | |
[patch] -Wall
Message-ID: <Pine.LNX.4.21.0102161519500.30352-100000@mako.covalent.net>
p4raw-id: //depot/perl@8815
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -497,8 +497,6 @@ PP(pp_open) dTARGET; GV *gv; SV *sv; - SV *name = Nullsv; - I32 have_name = 0; char *tmps; STRLEN len; MAGIC *mg; @@ -1364,7 +1362,7 @@ PP(pp_leavewrite) PUSHs(&PL_sv_yes); } } -bad_ofp: + /* bad_ofp: */ PL_formtarget = PL_bodytarget; PUTBACK; return pop_return(); @@ -1378,7 +1376,6 @@ PP(pp_prtf) PerlIO *fp; SV *sv; MAGIC *mg; - STRLEN n_a; if (PL_op->op_flags & OPf_STACKED) gv = (GV*)*++MARK; @@ -3206,11 +3203,12 @@ PP(pp_fttext) PL_laststatval = PerlLIO_fstat(PerlIO_fileno(IoIFP(io)), &PL_statcache); if (PL_laststatval < 0) RETPUSHUNDEF; - if (S_ISDIR(PL_statcache.st_mode)) /* handle NFS glitch */ + if (S_ISDIR(PL_statcache.st_mode)) { /* handle NFS glitch */ if (PL_op->op_type == OP_FTTEXT) RETPUSHNO; else RETPUSHYES; + } if (PerlIO_get_cnt(IoIFP(io)) <= 0) { i = PerlIO_getc(IoIFP(io)); if (i != EOF) |