MFH

diff --git a/ext/standard/string.c b/ext/standard/string.c
index 4814de6cf0bb3ba2bcf30b47250256ad98d91107..1be460d73eb5ebb7530d4a9a6e847cb854dcd3d9 100644 (file)
--- a/ext/standard/string.c
+++ b/ext/standard/string.c
@@ -1235,11 +1235,11 @@ quit_loop:
        }
 
        len = cend - comp;
-       ret = emalloc(len + 1);
-       memcpy(ret, comp, len);
-       ret[len] = '\0';
 
        if (p_ret) {
+               ret = emalloc(len + 1);
+               memcpy(ret, comp, len);
+               ret[len] = '\0';
                *p_ret = ret;
        }
        if (p_len) {