[Pspp-cvs] Changes to pspp/src/expressions/generate.pl

[Ben Pfaff]

Index: pspp/src/expressions/generate.pl
diff -u pspp/src/expressions/generate.pl:1.3 
pspp/src/expressions/generate.pl:1.4
--- pspp/src/expressions/generate.pl:1.3        Fri Mar  4 08:32:54 2005
+++ pspp/src/expressions/generate.pl    Tue May  3 05:05:12 2005
@@ -378,9 +378,9 @@
     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";