Fix generate.pl for Perl 5.6.1.

[pspp-builds.git] / src / expressions / generate.pl

diff --git a/src/expressions/generate.pl b/src/expressions/generate.pl
index 9cfb07ed71cc9a8187b27329c68054dc59247979..9d753867cc1f72865e8d251d289748fa21e0926b 100644 (file)
--- 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";