projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use strict and all warnings. Fix warnings that this triggers.
[pspp-builds.git]
/
src
/
language
/
expressions
/
generate.pl
diff --git
a/src/language/expressions/generate.pl
b/src/language/expressions/generate.pl
index c730cf071ed3f00d5aa5ecf7162cc18235e61705..def34255c838d780cb1c30845e677ca196ca1948 100644
(file)
--- a/
src/language/expressions/generate.pl
+++ b/
src/language/expressions/generate.pl
@@
-16,7
+16,7
@@
init_all_types ();
# Parse input file.
our (%ops);
# Parse input file.
our (%ops);
-our (@funcs, @opers);
+our (@funcs, @opers
, @order
);
parse_input ();
# Produce output.
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;
$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.
}
# Reads the next token into $token, $toktype.