From: Ben Pfaff <blp@cs.stanford.edu>
Date: Sun, 12 Sep 2010 21:05:59 +0000 (-0700)
Subject: PERMISSIONS: Add missing check for string token.
X-Git-Tag: v0.7.6~197
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8a92de555939887bbb784e44f4e3c901698a2dd4;p=pspp-builds.git

PERMISSIONS: Add missing check for string token.
---

diff --git a/src/language/utilities/permissions.c b/src/language/utilities/permissions.c
index 03458fce..967b1bd2 100644
--- a/src/language/utilities/permissions.c
+++ b/src/language/utilities/permissions.c
@@ -47,6 +47,9 @@ cmd_permissions (struct lexer *lexer, struct dataset *ds UNUSED)
   if (lex_match_id (lexer, "FILE"))
     lex_match (lexer, '=');
 
+  if (!lex_force_string (lexer))
+    return CMD_FAILURE;
+
   fn = ds_xstrdup (lex_tokstr (lexer));
   lex_force_match (lexer, T_STRING);