Code cleanup based on turning off the -woffs in IRIX.

Not all of the gripes cleaned up (hairy code in hv.c and
regcomp.c; unused newsp, gimme, and optype from cop.h macros;
unused 'key' arguments in ?DBM_File.xs) (and the -woffs left
to the IRIX hints)

p4raw-id: //depot/perl@11051

1 files changed, 0 insertions, 5 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 4f7a6c2ebd..f7e254274f 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -700,7 +700,6 @@ PP(pp_binmode)
     MAGIC *mg;
     SV *discp = Nullsv;
     STRLEN len  = 0;
-    char *names = NULL;
 
     if (MAXARG < 1)
 	RETPUSHUNDEF;
@@ -730,10 +729,6 @@ PP(pp_binmode)
         RETPUSHUNDEF;
     }
 
-    if (discp) {
-	names = SvPV(discp,len);
-    }
-
     if (PerlIO_binmode(aTHX_ fp,IoTYPE(io),mode_from_discipline(discp),
                        (discp) ? SvPV_nolen(discp) : Nullch))
 	RETPUSHYES;