From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 30 Jun 2001 21:33:29 +0000 (+0000)
Subject: gcc -Wall lint after #11051.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b51d1972a2b79001412a5849fb4872ef1d9af2a;p=p5sagit%2Fp5-mst-13.2.git

gcc -Wall lint after #11051.

p4raw-id: //depot/perl@11054
---

diff --git a/pp_sys.c b/pp_sys.c
index f7e2542..83dfb19 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -699,7 +699,6 @@ PP(pp_binmode)
     PerlIO *fp;
     MAGIC *mg;
     SV *discp = Nullsv;
-    STRLEN len  = 0;
 
     if (MAXARG < 1)
 	RETPUSHUNDEF;