summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c5
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;