|
 |
4dad76 |
From 85d4e0a35b2d44cf06a9343d23a2f84b8ebb9024 Mon Sep 17 00:00:00 2001
|
|
|
4dad76 |
From: Tony Cook <tony@develop-help.com>
|
|
|
4dad76 |
Date: Wed, 17 Jul 2019 11:32:50 +1000
|
|
|
4dad76 |
Subject: [PATCH] (perl #134291) propagate non-PVs in $@ in bare die()
|
|
|
4dad76 |
MIME-Version: 1.0
|
|
|
4dad76 |
Content-Type: text/plain; charset=UTF-8
|
|
|
4dad76 |
Content-Transfer-Encoding: 8bit
|
|
|
4dad76 |
|
|
|
4dad76 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
4dad76 |
---
|
|
|
4dad76 |
pp_sys.c | 2 +-
|
|
|
4dad76 |
t/op/die.t | 6 +++++-
|
|
|
4dad76 |
2 files changed, 6 insertions(+), 2 deletions(-)
|
|
|
4dad76 |
|
|
|
4dad76 |
diff --git a/pp_sys.c b/pp_sys.c
|
|
|
4dad76 |
index 0214367ea6..251527785e 100644
|
|
|
4dad76 |
--- a/pp_sys.c
|
|
|
4dad76 |
+++ b/pp_sys.c
|
|
|
4dad76 |
@@ -498,7 +498,7 @@ PP(pp_die)
|
|
|
4dad76 |
}
|
|
|
4dad76 |
}
|
|
|
4dad76 |
}
|
|
|
4dad76 |
- else if (SvPOK(errsv) && SvCUR(errsv)) {
|
|
|
4dad76 |
+ else if (SvOK(errsv) && (SvPV_nomg(errsv,len), len)) {
|
|
|
4dad76 |
exsv = sv_mortalcopy(errsv);
|
|
|
4dad76 |
sv_catpvs(exsv, "\t...propagated");
|
|
|
4dad76 |
}
|
|
|
4dad76 |
diff --git a/t/op/die.t b/t/op/die.t
|
|
|
4dad76 |
index ef2b85f8f5..d6d7daffa5 100644
|
|
|
4dad76 |
--- a/t/op/die.t
|
|
|
4dad76 |
+++ b/t/op/die.t
|
|
|
4dad76 |
@@ -6,7 +6,7 @@ BEGIN {
|
|
|
4dad76 |
set_up_inc('../lib');
|
|
|
4dad76 |
}
|
|
|
4dad76 |
|
|
|
4dad76 |
-plan tests => 20;
|
|
|
4dad76 |
+plan tests => 21;
|
|
|
4dad76 |
|
|
|
4dad76 |
eval {
|
|
|
4dad76 |
eval {
|
|
|
4dad76 |
@@ -94,6 +94,10 @@ like($@, qr/\.{3}propagated at/, '... and appends a phrase');
|
|
|
4dad76 |
local $SIG{__WARN__} = sub { $ok = 0 };
|
|
|
4dad76 |
eval { undef $@; die };
|
|
|
4dad76 |
is( $ok, 1, 'no warnings if $@ is undef' );
|
|
|
4dad76 |
+
|
|
|
4dad76 |
+ eval { $@ = 100; die };
|
|
|
4dad76 |
+ like($@."", qr/100\t\.{3}propagated at/,
|
|
|
4dad76 |
+ 'check non-PVs in $@ are propagated');
|
|
|
4dad76 |
}
|
|
|
4dad76 |
|
|
|
4dad76 |
TODO: {
|
|
|
4dad76 |
--
|
|
|
4dad76 |
2.20.1
|
|
|
4dad76 |
|