Add s///r (non-destructive substitution).

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

diff --git a/dump.c b/dump.c
index 6bfe5f4..631f37c 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -645,6 +645,8 @@ S_pm_description(pTHX_ const PMOP *pm)
        sv_catpv(desc, ",RETAINT");
     if (pmflags & PMf_EVAL)
        sv_catpv(desc, ",EVAL");
+    if (pmflags & PMf_NONDESTRUCT)
+       sv_catpv(desc, ",NONDESTRUCT");
     return desc;
 }