gcc -Wall lint after #11051.

p4raw-id: //depot/perl@11054

diff --git a/pp_sys.c b/pp_sys.c
index f7e2542..83dfb19 100644 (file)
--- 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;