Nicht in POD-Dokumentation am Ende der Datei nach Übersetzungen/Templates suchen

diff --git a/scripts/locales.pl b/scripts/locales.pl
index bdc3852..b972a49 100755 (executable)
--- a/scripts/locales.pl
+++ b/scripts/locales.pl
@@ -331,6 +331,8 @@ sub scanfile {
     my ($is_submit, $line_no, $sub_line_no) = (0, 0, 0);
 
     while (<$fh>) {
+      last if /^\s*__END__/;
+
       $line_no++;
 
       # is this another file