String expansions: fix ${extract }, for the numeric/3-string case. Bug 1807

[users/jgh/exim.git] / src / scripts / source_checks

diff --git a/src/scripts/source_checks b/src/scripts/source_checks
index 79f9c3555add821f53835d26ebdd0b85eae47170..eac4b8d1be7a40d287a4bbb0411472a1fd1ac845 100644 (file)
--- a/src/scripts/source_checks
+++ b/src/scripts/source_checks
@@ -10,7 +10,7 @@ do
   perl -e '$/= undef; while (<>) { print $1 if /(?<='$table'\[\])\s*=\s*{\n(([^}].*\n)+)/m }' \
   | awk '/{ (US)?"/ {print $2}' \
   | awk -F\" '{print $2}' \
   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
   || exit 1
 done <<-END
        readconf.c      optionlist_config


@@ -36,7 +36,7 @@ do
   < $file \
   perl -e '$/= undef; while (<>) { print $1 if /(?<='$table'\[\])\s*=\s*{\s?(([^}]*)+)}/m }' \
   | awk -F\" '/"/ {print $2}' \
   < $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
   || exit 1
 
 done <<-END