This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
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

index 53451e0..6e4b804 100644 (file)
@@ -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