Mahnungen: PDF an Drucker schicken: Druckbefehl erst prüfen, dann verwenden

diff --git a/SL/DN.pm b/SL/DN.pm
index e9aa1ec..a4eb127 100644 (file)
--- a/SL/DN.pm
+++ b/SL/DN.pm
@@ -849,10 +849,10 @@ sub melt_pdfs {
       $out = IO::File->new("| $form->{printer_command}");
     }
 
-    $::locale->with_raw_io($out, sub { $out->print($_) while <$in> });
-
     $form->error($main::locale->text('Could not spawn the printer command.')) unless $out;
 
+    $::locale->with_raw_io($out, sub { $out->print($_) while <$in> });
+
   } else {
     my $dunning_filename = $form->get_formname_translation('dunning');
     print qq|Content-Type: Application/PDF\n| .