From 741bf93462919d841ffd7f3ed8c85a202b9dc3f8 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Sun, 28 Jun 2015 22:21:23 +0300
Subject: Additional memory fixes and test for typedregex.

---
 awk.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'awk.h')

diff --git a/awk.h b/awk.h
index 0c30cbdc..53af7f1b 100644
--- a/awk.h
+++ b/awk.h
@@ -1764,7 +1764,7 @@ static inline NODE *
 force_string(NODE *s)
 {
 	if (s->type == Node_typedregex)
-		return s->re_exp;
+		return dupnode(s->re_exp);
 
 	if ((s->flags & STRCUR) != 0
 		    && (s->stfmt == -1 || s->stfmt == CONVFMTidx)
-- 
cgit v1.2.3