oceani: memdup argument strings when assigning to a variable.

[ocean] / csrc / oceani.mdc

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index a202481de1941bd64812ccaeb73abb501af8d5ef..bd2c41afc02a1daa34ed6921fb60ba12e6ea4638 100644 (file)
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -400,8 +400,9 @@ when no longer needed.
                case Vnone:
                        return 0;
                case Vstr:
-                       vl->str.txt = arg;
                        vl->str.len = strlen(arg);
+                       vl->str.txt = malloc(vl->str.len);
+                       memcpy(vl->str.txt, arg, vl->str.len);
                        break;
                case Vnum:
                        tx.txt = arg; tx.len = strlen(tx.txt);