propagate failures in DESTROY() as (optional) warnings

[p5sagit/p5-mst-13.2.git] / pp_ctl.c

diff --git a/pp_ctl.c b/pp_ctl.c
index 0f02c66..e4b8a73 100644 (file)
--- 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);
                }