Merge pull request #64 from choroba/sig-warn-obj

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

Author: choroba

Changes

@@ -1,5 +1,8 @@
 Revision history for Syntax-Construct
 
+1.042   2025-06-13
+        - Add sig-warn-obj
+
 1.041   2025-06-09
         - Add the __FILE__() syntax
 

lib/Syntax/Construct.pm

@@ -4,7 +4,7 @@ use 5.006002;
 use strict;
 use warnings;
 
-our $VERSION = '1.041';
+our $VERSION = '1.042';
 
 my %introduces = do { no warnings 'qw';
                  ( '5.040' => [qw[
@@ -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
@@ -305,7 +305,7 @@ Syntax::Construct - Explicitly state which non-feature constructs are used in th
 
 =head1 VERSION
 
-Version 1.041
+Version 1.042
 
 =head1 SYNOPSIS
 
@@ -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,15 @@ my %tests = (
         [ 'prototype+',
           'sub proto_plus (+) { $_[0][0] }; my @ar = qw( a b ); proto_plus(@ar)',
           'a' ],
+        [ 'sig-warn-obj',
+          'sub My::Warn::value { 42 }
+           my $out;
+           my $w = bless {}, "My::Warn";
+           local $SIG{__WARN__} = sub { $out = shift->value };
+           warn $w;
+           $out',
+           42
+        ],
     ],
 
     '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);