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
commitcc3244ffb85420798961d0eea8649655c8a56e63 (patch)
tree2c626750a9a8493a188833eb82d96b24e79fa03f /ext/PerlIO
parent8012612fa7b940b846c45cccf00ac3a0c5c8549b (diff)
downloadperl-cc3244ffb85420798961d0eea8649655c8a56e63.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;
}