This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
B: Really remove unused var
authorFather Chrysostomos <sprout@cpan.org>
Sun, 8 Oct 2017 22:58:01 +0000 (15:58 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 8 Oct 2017 22:58:01 +0000 (15:58 -0700)
6a4fc5265ba102 removed the useless assignment to it, but not the
var itself.

ext/B/B.pm

index d48fa3a..3365a14 100644 (file)
@@ -257,7 +257,6 @@ sub walkoptree_exec {
 sub walksymtable {
     my ($symref, $method, $recurse, $prefix) = @_;
     my $sym;
-    my $ref;
     my $fullname;
     no strict 'refs';
     $prefix = '' unless defined $prefix;