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:
0290c71
)
Remove unnecessary check in mro_package_moved
author
Father Chrysostomos
<sprout@cpan.org>
Wed, 17 Nov 2010 00:31:37 +0000
(16:31 -0800)
committer
Father Chrysostomos
<sprout@cpan.org>
Wed, 17 Nov 2010 01:48:26 +0000
(17:48 -0800)
This was supposed to have been removed by 80ebaca, when negative val-
ues for the newname_len argument stopped being used.
mro.c
patch
|
blob
|
blame
|
history
diff --git
a/mro.c
b/mro.c
index
9083d56
..
8276795
100644
(file)
--- a/
mro.c
+++ b/
mro.c
@@
-737,7
+737,6
@@
Perl_mro_package_moved(pTHX_ HV * const stash, HV * const oldstash,
newname = SvPV_const(namesv, len);
newname_len = len - 2; /* skip trailing :: */
}
- if(newname_len < 0) newname_len = -newname_len;
/* Get a list of all the affected classes. */
/* We cannot simply pass them all to mro_isa_changed_in to avoid