This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
base.pm: remove unused variable
authorDavid Golden <dagolden@cpan.org>
Thu, 22 Sep 2011 17:38:52 +0000 (13:38 -0400)
committerDavid Golden <dagolden@cpan.org>
Thu, 22 Sep 2011 17:38:52 +0000 (13:38 -0400)
dist/base/lib/base.pm

index 23e7084..19fc845 100644 (file)
@@ -64,7 +64,6 @@ sub import {
     my $fields_base;
 
     my $inheritor = caller(0);
-    my @isa_classes;
 
     my @bases;
     foreach my $base (@_) {
@@ -110,8 +109,6 @@ ERROR
         }
     }
     # Save this until the end so it's all or nothing if the above loop croaks.
-    push @{"$inheritor\::ISA"}, @isa_classes;
-
     push @{"$inheritor\::ISA"}, @bases;
 
     if( defined $fields_base ) {