This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7a799f6
)
base.pm: remove unused variable
author
David Golden
<dagolden@cpan.org>
Thu, 22 Sep 2011 17:38:52 +0000
(13:38 -0400)
committer
David Golden
<dagolden@cpan.org>
Thu, 22 Sep 2011 17:38:52 +0000
(13:38 -0400)
dist/base/lib/base.pm
patch
|
blob
|
blame
|
history
diff --git
a/dist/base/lib/base.pm
b/dist/base/lib/base.pm
index
23e7084
..
19fc845
100644
(file)
--- 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 ) {