projects / platform / upstream / perl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: b5679dc)
Remove some declared but unused lexicals.
authorShlomi Fish <shlomif@shlomifish.org>
Wed, 17 Oct 2012 15:48:37 +0000 (17:48 +0200)
committerRicardo Signes <rjbs@cpan.org>
Mon, 12 Nov 2012 14:18:43 +0000 (09:18 -0500)
lib/perl5db.pl patch | blob | history

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 53451e0..6e4b804 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -8391,9 +8391,6 @@ sub dbdie {
     local $doret         = -2;
     local $SIG{__DIE__}  = '';
     local $SIG{__WARN__} = '';
-    my $i      = 0;
-    my $ineval = 0;
-    my $sub;
     if ( $dieLevel > 2 ) {
         local $SIG{__WARN__} = \&dbwarn;
         _db_warn(@_);    # Yell no matter what
Domain: System / Base;