[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' }
-plan tests => 4881;
+plan tests => 4882;
 
 use Scalar::Util qw(tainted);
 
@@ -1999,4 +1999,12 @@ fresh_perl_is
  '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