From 5dfb4dc48bc2c889041256f4152724f654ba0d6c Mon Sep 17 00:00:00 2001
From: helixhorned <helixhorned@1a8010ca-5511-0410-912e-c29ae57300e0>
Date: Mon, 18 Feb 2013 16:07:54 +0000
Subject: [PATCH] CON: don't accept read-only vars for first arg of qstrlen.

git-svn-id: https://svn.eduke32.com/eduke32@3505 1a8010ca-5511-0410-912e-c29ae57300e0
---
 polymer/eduke32/source/gamedef.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/polymer/eduke32/source/gamedef.c b/polymer/eduke32/source/gamedef.c
index d0ea0c04a..2db9bf370 100644
--- a/polymer/eduke32/source/gamedef.c
+++ b/polymer/eduke32/source/gamedef.c
@@ -4954,10 +4954,13 @@ repeatcase:
         case CON_STARTLEVEL:
         case CON_QSTRCAT:
         case CON_QSTRCPY:
-        case CON_QSTRLEN:
         case CON_QGETSYSSTR:
             C_GetManyVars(2);
             continue;
+        case CON_QSTRLEN:
+            C_GetNextVarType(GAMEVAR_READONLY);
+            C_GetNextVar();
+            continue;
         case CON_HEADSPRITESTAT:
         case CON_PREVSPRITESTAT:
         case CON_NEXTSPRITESTAT: