perl -e '$/= undef; while (<>) { print $1 if /(?<='$table'\[\])\s*=\s*{\n(([^}].*\n)+)/m }' \
| awk '/{ (US)?"/ {print $2}' \
| awk -F\" '{print $2}' \
- | LANG=C sort -c \
+ | LC_ALL=C sort -c \
|| exit 1
done <<-END
readconf.c optionlist_config
globals.c header_names
globals.c log_options
expand.c item_table
+ std-crypto.c dh_constants
transport.c optionlist_transports
route.c optionlist_routers
transports/appendfile.c appendfile_transport_options
transports/pipe.c pipe_transport_options
transports/smtp.c smtp_transport_options
expand.c var_table
+ acl.c conditions
+ acl.c controls_list
END
# Tables with just string items
< $file \
perl -e '$/= undef; while (<>) { print $1 if /(?<='$table'\[\])\s*=\s*{\s?(([^}]*)+)}/m }' \
| awk -F\" '/"/ {print $2}' \
- | LANG=C sort -c \
+ | LC_ALL=C sort -c \
|| exit 1
done <<-END
expand.c op_table_main
expand.c cond_table
acl.c verbs
- acl.c conditions
END