Add sig-warn-obj: $SIG{__WARN__} handler gets non-stringified object

Author: choroba

lib/Syntax/Construct.pm

@@ -59,7 +59,7 @@ my %introduces = do { no warnings 'qw';
                    '5.014' => [qw[
                                  ?^ /r /d /l /u /a auto-deref
                                  ^GLOBAL_PHASE \o package-block
-                                 srand-return prototype+
+                                 srand-return prototype+ sig-warn-obj
                               ]],
                    '5.012' => [qw[
                                  package-version ... each-array
@@ -638,6 +638,10 @@ See B<srand() now returns the seed> under L<perl5140delta/Other Enhancements>.
 
 See L<perl5140delta/Single-term-prototype>.
 
+=head3 sig-warn-obj
+
+See the second bullet in L<perl5140delta/Exception Handling>.
+
 =head2 5.016
 
 =head3 charnames

t/02-constructs.t

@@ -269,6 +269,14 @@ my %tests = (
         [ 'prototype+',
           'sub proto_plus (+) { $_[0][0] }; my @ar = qw( a b ); proto_plus(@ar)',
           'a' ],
+        [ 'sig-warn-obj',
+          'my $out;
+           my $w = bless {}, "My::Warn";
+           local $SIG{__WARN__} = sub { $out = $w };
+           warn $w;
+           $out->isa("My::Warn")',
+           1
+        ],
     ],
 
     '5.012' => [

t/05-functions.t

@@ -6,7 +6,7 @@ use FindBin;
 
 my %count;
 BEGIN {
-    %count = (constructs => 102, old => 4, removed => 7);
+    %count = (constructs => 103, old => 4, removed => 7);
 }
 
 use Test::More tests => 5;

xt/completness.t

@@ -5,7 +5,7 @@ use FindBin;
 
 my $plan;
 BEGIN {
-    my %count = (constructs => 102,
+    my %count = (constructs => 103,
                  removed    => 7,
                  aliases    => 80,
                  old        => 4);