X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fexpressions%2Fgenerate.pl;h=9d753867cc1f72865e8d251d289748fa21e0926b;hb=8fa7f3f6640c0eec450149cf5ccfab15d5391f55;hp=9cfb07ed71cc9a8187b27329c68054dc59247979;hpb=d807ad29cc0d3caa4f0e04ee4b75c70a225cfeaf;p=pspp

diff --git a/src/expressions/generate.pl b/src/expressions/generate.pl
index 9cfb07ed71..9d753867cc 100644
--- a/src/expressions/generate.pl
+++ b/src/expressions/generate.pl
@@ -378,9 +378,9 @@ sub get_token {
     our ($line);
     lookahead ();
     return if defined ($toktype) && $toktype eq 'eof';
-    $toktype = 'id', return
-	if ($token) = $line =~ /\G([a-zA-Z_][a-zA-Z_.0-9]*)/gc;
-    $toktype = 'int', return if ($token) = $line =~ /\G[0-9]+/gc;
+    $toktype = 'id', $token = $1, return
+	if $line =~ /\G([a-zA-Z_][a-zA-Z_.0-9]*)/gc;
+    $toktype = 'int', $token = $1, return if $line =~ /\G([0-9]+)/gc;
     $toktype = 'punct', $token = $1, return if $line =~ /\G([][(),*;.])/gc;
     if ($line =~ /\G=/gc) {
 	$toktype = "expression";