X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=src%2Flanguage%2Fexpressions%2Fgenerate.pl;h=def34255c838d780cb1c30845e677ca196ca1948;hb=a9acce47d67e0ab35ce1690e4f1b1ac0121c2d78;hp=c730cf071ed3f00d5aa5ecf7162cc18235e61705;hpb=35dac0a274893c6ba1d58d33a0889096eef033b4;p=pspp

diff --git a/src/language/expressions/generate.pl b/src/language/expressions/generate.pl
index c730cf071e..def34255c8 100644
--- a/src/language/expressions/generate.pl
+++ b/src/language/expressions/generate.pl
@@ -16,7 +16,7 @@ init_all_types ();
 
 # Parse input file.
 our (%ops);
-our (@funcs, @opers);
+our (@funcs, @opers, @order);
 parse_input ();
 
 # Produce output.
@@ -380,7 +380,7 @@ sub parse_input {
 		       $ops{$a}->{OPNAME} cmp $ops{$b}->{OPNAME}}
       @funcs;
     @opers = sort {$ops{$a}->{NAME} cmp $ops{$b}->{NAME}} @opers;
-    our (@order) = (@funcs, @opers);
+    @order = (@funcs, @opers);
 }
 
 # Reads the next token into $token, $toktype.