diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2003-05-11 14:04:31 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2003-05-11 14:04:31 +0000 |
| commit | acbd16bfa8cc0ce2f8cf72ca650c798b69c28dcc (patch) | |
| tree | 3912ac18f97808eb77363d566cca3bf6fa19472f | |
| parent | aa063c351bd93493dd45b11fa59e0e5a90b4b421 (diff) | |
| download | perl-acbd16bfa8cc0ce2f8cf72ca650c798b69c28dcc.tar.gz | |
Unused variable
p4raw-id: //depot/perlio@19483
| -rw-r--r-- | perlio.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -2354,7 +2354,6 @@ IV PerlIOUnix_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab) { IV code = PerlIOBase_pushed(aTHX_ f, mode, arg, tab); - PerlIOUnix *s = PerlIOSelf(f, PerlIOUnix); if (*PerlIONext(f)) { /* We never call down so do any pending stuff now */ PerlIO_flush(PerlIONext(f)); @@ -2363,7 +2362,7 @@ PerlIOUnix_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab) * handle rather than believing the "mode" we are passed in? XXX * Should the value on NULL mode be 0 or -1? */ - PerlIOUnix_setfd(aTHX_ f, PerlIO_fileno(PerlIONext(f)), + PerlIOUnix_setfd(aTHX_ f, PerlIO_fileno(PerlIONext(f)), mode ? PerlIOUnix_oflags(mode) : -1); } PerlIOBase(f)->flags |= PERLIO_F_OPEN; @@ -2485,7 +2484,7 @@ PerlIOUnix_seek(pTHX_ PerlIO *f, Off_t offset, int whence) SETERRNO(EINVAL, LIB_INVARG); #endif return -1; - } + } new = PerlLIO_lseek(fd, offset, whence); if (new == (Off_t) - 1) { |