Source Format Enforcement (#763)

[thirdparty/squid.git] / scripts / verify_errorpages.pl

diff --git a/scripts/verify_errorpages.pl b/scripts/verify_errorpages.pl
index cc92e285f2805ef0b0ffbd704eba5f252dd33d9c..d228553fd601c841b4eaa8805ed957bce7629e21 100755 (executable)
--- a/scripts/verify_errorpages.pl
+++ b/scripts/verify_errorpages.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-## Copyright (C) 1996-2015 The Squid Software Foundation and contributors
+## Copyright (C) 1996-2021 The Squid Software Foundation and contributors
 ##
 ## Squid software is distributed under GPLv2+ license and includes
 ## contributions from numerous individuals and organizations.
@@ -22,16 +22,16 @@ foreach $page (@pages) {
 }
 
 foreach $lang (@ARGV) {
-  foreach $page (@pages) {
-    undef %codes;
-    open(IN, "<$lang/$page") || die;
-    $file = join("", <IN>);
-    close(IN);
-    $file =~ s/%(.)/$codes{$1}++/ge;
-    foreach $code (keys %codes, keys %{$english{$page}}) {
-       if ($codes{$code} ne $english{$page}{$code}) {
-           print("$lang/$page %$code mismatch (found $codes{$code}, expected $english{$page}{$code})\n");
-       }
+    foreach $page (@pages) {
+        undef %codes;
+        open(IN, "<$lang/$page") || die;
+        $file = join("", <IN>);
+        close(IN);
+        $file =~ s/%(.)/$codes{$1}++/ge;
+        foreach $code (keys %codes, keys %{$english{$page}}) {
+            if ($codes{$code} ne $english{$page}{$code}) {
+                print("$lang/$page %$code mismatch (found $codes{$code}, expected $english{$page}{$code})\n");
+            }
+        }
     }
-  }
 }