propagate failures in DESTROY() as (optional) warnings

p4raw-id: //depot/perl@2245

1 files changed, 2 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 0f02c662e9..e4b8a739fa 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1253,6 +1253,8 @@ die_where(char *message)
 			SvGROW(err, SvCUR(err)+sizeof(prefix)+klen);
 			sv_catpvn(err, prefix, sizeof(prefix)-1);
 			sv_catpvn(err, message, klen);
+			if (ckWARN(WARN_UNSAFE))
+			    warner(WARN_UNSAFE, SvPVX(err));
 		    }
 		    sv_inc(*svp);
 		}