diff options
| author | David Golden <dagolden@cpan.org> | 2011-09-22 13:38:52 -0400 |
|---|---|---|
| committer | David Golden <dagolden@cpan.org> | 2011-09-22 13:38:52 -0400 |
| commit | e3807f0cd29f83175e6f279a014aae9f90cbc57b (patch) | |
| tree | 98cd93f328da6603d1511002b4f9b1bcf968d98f | |
| parent | 7a799f6bb3cac2e1bf9bede83579324cffa59c16 (diff) | |
| download | perl-e3807f0cd29f83175e6f279a014aae9f90cbc57b.tar.gz | |
base.pm: remove unused variable
| -rw-r--r-- | dist/base/lib/base.pm | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/dist/base/lib/base.pm b/dist/base/lib/base.pm index 23e7084d8e..19fc8456d2 100644 --- a/dist/base/lib/base.pm +++ b/dist/base/lib/base.pm @@ -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 ) { |