[perl #77384] Passing a ref to warn doesn't append file and line

This commit makes pp_warn stringify the warning if there is no
$SIG{__WARN__} handler. See the RT ticket for the discussion.

diff --git a/pp_sys.c b/pp_sys.c
index 73a5c8a..30a2645 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -449,7 +449,9 @@ PP(pp_warn)
     else {
        exsv = newSVpvs_flags("Warning: something's wrong", SVs_TEMP);
     }
-    warn_sv(exsv);
+    if (SvROK(exsv) && !PL_warnhook)
+        Perl_warn(aTHX_ "%"SVf, SVfARG(exsv));
+    else warn_sv(exsv);
     RETSETYES;
 }
 

diff --git a/t/op/warn.t b/t/op/warn.t
index bcb12a6..4a927e2 100644 (file)
--- a/t/op/warn.t
+++ b/t/op/warn.t
@@ -7,7 +7,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan 21;
+plan 22;
 
 my @warnings;
 my $wa = []; my $ea = [];
@@ -141,4 +141,11 @@ fresh_perl_like(
  'Wide character in warn (not print)'
 );
 
+fresh_perl_like(
+ 'warn []',
+  qr/^ARRAY\(0x[\da-f]+\) at /a,
+  { },
+ 'warn stringifies in the absence of $SIG{__WARN__}'
+);
+
 1;