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
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[PATCH 3/3] Provide wrappers for IN6ADDR_ANY and IN6ADDR_LOOPBACK
[perl5.git]
/
lib
/
overload.t
diff --git
a/lib/overload.t
b/lib/overload.t
index
417c1cb
..
ef65ea5
100644
(file)
--- a/
lib/overload.t
+++ b/
lib/overload.t
@@
-48,7
+48,7
@@
package main;
$| = 1;
BEGIN { require './test.pl' }
$| = 1;
BEGIN { require './test.pl' }
-plan tests => 488
1
;
+plan tests => 488
2
;
use Scalar::Util qw(tainted);
use Scalar::Util qw(tainted);
@@
-1999,4
+1999,12
@@
fresh_perl_is
'use overload from the main package'
;
'use overload from the main package'
;
+{
+ package blessed_methods;
+ use overload '+' => sub {};
+ bless overload::Method __PACKAGE__,'+';
+ eval { overload::Method __PACKAGE__,'+' };
+ ::is($@, '', 'overload::Method and blessed overload methods');
+}
+
# EOF
# EOF