B.pm: Remove unused var

[perl5.git] / ext / B / B.pm

diff --git a/ext/B/B.pm b/ext/B/B.pm
index daa5764..ceafdfd 100644 (file)
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -262,7 +262,6 @@ sub walksymtable {
     no strict 'refs';
     $prefix = '' unless defined $prefix;
     foreach my $sym ( sort keys %$symref ) {
-        $ref= $symref->{$sym};
         $fullname = "*main::".$prefix.$sym;
        if ($sym =~ /::$/) {
            $sym = $prefix . $sym;