[perl #40333] Another test

This test includes an explosive class, that overload::Overloaded
should be able to handle.

1 files changed, 13 insertions, 1 deletions

diff --git a/lib/overload.t b/lib/overload.t
index 37c7c0ae77..e8bb9233d5 100644
--- a/lib/overload.t
+++ b/lib/overload.t
@@ -48,7 +48,7 @@ package main;
 
 $| = 1;
 BEGIN { require './test.pl' }
-plan tests => 5038;
+plan tests => 5039;
 
 use Scalar::Util qw(tainted);
 
@@ -2219,5 +2219,17 @@ package o     { use overload '""' => sub { 'keck' };
 ok !overload::Overloaded(new proxy new o),
  'overload::Overloaded does not incorrectly return true for proxy classes';
 
+# Another test, based on the type of explosive test class for which
+# perl #40333 was filed.
+{
+    package broken_can;
+    sub can {}
+    use overload '""' => sub {"Ahoy!"};
+
+    package main;
+    my $obj = bless [], 'broken_can';
+    ok(overload::Overloaded($obj));
+}
+
 
 # EOF