X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a35013886c936227e97cc868b77be1e584ad4272..de8868c:/bin/mozilla/datev.pl

diff --git a/bin/mozilla/datev.pl b/bin/mozilla/datev.pl
index 4ada35f10..d35225204 100644
--- 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);