From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 7 Dec 1998 06:00:55 +0000 (+0000)
Subject: fix dup lexical
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=acba1d67a98a60de898ada2fc3df1e9efc92b76d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- a/t/lib/io_unix.t
+++ b/t/lib/io_unix.t
@@ -1,4 +1,3 @@
-
 #!./perl
 
 BEGIN {