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:
af23c90
)
overload tests: use parent instead of base
author
Ricardo Signes
<rjbs@cpan.org>
Mon, 9 Sep 2013 02:07:03 +0000
(22:07 -0400)
committer
Ricardo Signes
<rjbs@cpan.org>
Thu, 12 Sep 2013 23:49:17 +0000
(19:49 -0400)
lib/overload.t
patch
|
blob
|
blame
|
history
diff --git
a/lib/overload.t
b/lib/overload.t
index
3af969b
..
c83c0ed
100644
(file)
--- a/
lib/overload.t
+++ b/
lib/overload.t
@@
-2065,11
+2065,11
@@
fresh_perl_is
}
package NCmp;
- use
base
'CmpBase';
+ use
parent '-norequire',
'CmpBase';
use overload '<=>' => 'cmp';
package SCmp;
- use
base
'CmpBase';
+ use
parent '-norequire',
'CmpBase';
use overload 'cmp' => 'cmp';
package main;
@@
-2133,7
+2133,7
@@
fresh_perl_is
? $nomethod . "=>'nomethod'," : '';
eval qq{
package NuMB$fall$nomethod;
- use
base
qw/NuMB/;
+ use
parent '-norequire',
qw/NuMB/;
use overload $nomethod_decl
fallback => $fall;
};