last commits? Why is this stuff left over?

lib/App/Cpan.pm

@@ -1526,8 +1526,6 @@ sub _guess_at_module_name
 	my( $target, $threshold ) = @_;
 
 	unless( defined $distance ) {
-my $distance;
-BEGIN {
 		foreach my $try ( @$guessers ) {
 			my $can_guess = eval "require $try->[0]; 1" or next;
 
@@ -1558,6 +1556,7 @@ BEGIN {
 	my @guesses = sort { $guesses{$a} <=> $guesses{$b} } keys %guesses;
 	return [ grep { defined } @guesses[0..9] ];
 	}
+}
 
 1;
 
@@ -1580,7 +1579,6 @@ not control. For now, the exit codes are vague:
 
 =head1 TO DO
 
-}
 * There is initial support for Log4perl if it is available, but I
 haven't gone through everything to make the NullLogger work out
 correctly if Log4perl is not installed.