fix dup lexical

p4raw-id: //depot/perl@2458

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 5e0bd1d..60f6f0d 100644 (file)
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -1442,7 +1442,7 @@ sub pp_truncate {
     my(@exprs);
     my $parens = ($cx >= 5) || $self->{'parens'};
     my $kid = $op->first->sibling;
-    my($fh, $len);
+    my $fh;
     if ($op->flags & OPf_SPECIAL) {
        # $kid is an OP_CONST
        $fh = $kid->sv->PV;

diff --git a/t/lib/io_unix.t b/t/lib/io_unix.t
index 3d9ed50..1d7842b 100644 (file)
--- a/t/lib/io_unix.t
+++ b/t/lib/io_unix.t
@@ -1,4 +1,3 @@
-
 #!./perl
 
 BEGIN {