Kosmetik: Templatenamen in Fehlermeldung nicht doppelt ausgeben

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 022f039..c44b525 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -38,6 +38,7 @@
 
 use Carp;
 use CGI;
+use List::MoreUtils qw(uniq);
 use List::Util qw(min max first);
 
 use SL::CVar;
@@ -1504,6 +1505,7 @@ sub print_form {
   push @template_files, "$form->{formname}$form->{language}$printer_code.$extension";
   push @template_files, "$form->{formname}.$extension";
   push @template_files, "default.$extension";
+  @template_files = uniq @template_files;
 
   $form->{IN} = undef;
   for my $filename (@template_files) {