# Parse input file.
our (%ops);
-our (@funcs, @opers);
+our (@funcs, @opers, @order);
parse_input ();
# Produce output.
$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.