ZIP-Dateien raw auf STDOUT ausgeben

diff --git a/bin/mozilla/datev.pl b/bin/mozilla/datev.pl
index 4ada35f..d352252 100644 (file)
--- a/bin/mozilla/datev.pl
+++ b/bin/mozilla/datev.pl
@@ -421,11 +421,13 @@ sub download {
   chdir($cwd);
 
   open(IN, $tmp_name) || die("open $tmp_name");
-  print("Content-Type: application/zip\n");
-  print("Content-Disposition: attachment; filename=\"${zip_name}\"\n\n");
-  while (<IN>) {
-    print($_);
-  }
+  $::locale->with_raw_io(\*STDOUT, sub {
+    print("Content-Type: application/zip\n");
+    print("Content-Disposition: attachment; filename=\"${zip_name}\"\n\n");
+    while (<IN>) {
+      print($_);
+    }
+  });
   close(IN);
 
   unlink($tmp_name);