Admin: bei Admin/login direkt Redirect zu show, falls bereits eingeloggt

[mfinanz.git] / scripts / locales.pl

diff --git a/scripts/locales.pl b/scripts/locales.pl
index c4adf1cf18bc179142c8fd4bdc7ef5f11dae0be3..53c3af5becd7a1a1859675c76edf3c6c8ae834b4 100755 (executable)
--- a/scripts/locales.pl
+++ b/scripts/locales.pl
@@ -238,15 +238,20 @@ EOL
 sub parse_args {
   my ($help, $man);
 
+  my ($opt_no_c, $ignore_for_compatiblity);
+
   GetOptions(
     'no-custom-files' => \$opt_n,
-    'check-files'     => \$opt_c,
+    'check-files'     => \$ignore_for_compatiblity,
+    'no-check-files'  => \$opt_no_c,
     'verbose'         => \$opt_v,
     'help'            => \$help,
     'man'             => \$man,
     'debug'           => \$debug,
   );
 
+  $opt_c = !$opt_no_c;
+
   if ($help) {
     pod2usage(1);
     exit 0;
@@ -444,8 +449,11 @@ sub scanfile {
           }
         }
 
-        my ($found) = / (?: locale->text | \b t8 ) \b .*? \(/x;
-        $postmatch = "$'";
+        my $found;
+        if (/ (?: locale->text | \b t8 ) \b .*? \(/x) {
+          $found     = 1;
+          $postmatch = "$'";
+        }
 
         if ($found) {
           my $string;