summaryrefslogtreecommitdiff
path: root/ext/PerlIO
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-06-02 16:48:26 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-06-02 16:48:26 +0000
commit8fa7f3676ed75809365905727fbae97dc8767f29 (patch)
tree2c626750a9a8493a188833eb82d96b24e79fa03f /ext/PerlIO
parenta126002e7fdcd66f0996dbe9b5b1c2d7960cf31b (diff)
downloadperl-8fa7f3676ed75809365905727fbae97dc8767f29.tar.gz
-Wall cleanup continues.
p4raw-id: //depot/perl@10392
Diffstat (limited to 'ext/PerlIO')
-rw-r--r--ext/PerlIO/Scalar/Scalar.xs1
1 files changed, 0 insertions, 1 deletions
diff --git a/ext/PerlIO/Scalar/Scalar.xs b/ext/PerlIO/Scalar/Scalar.xs
index e1e9349cd9..fb8b39abb6 100644
--- a/ext/PerlIO/Scalar/Scalar.xs
+++ b/ext/PerlIO/Scalar/Scalar.xs
@@ -67,7 +67,6 @@ PerlIOScalar_close(PerlIO *f)
{
dTHX;
IV code = PerlIOBase_close(f);
- PerlIOScalar *s = PerlIOSelf(f,PerlIOScalar);
PerlIOBase(f)->flags &= ~(PERLIO_F_RDBUF|PERLIO_F_WRBUF);
return code;
}