From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 28 Dec 2010 09:28:29 +0000 (+0100)
Subject: ZIP-Dateien raw auf STDOUT ausgeben
X-Git-Tag: release-2.6.2beta1~58^2~1
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=e652a0c2a5ada610aa6830fdb4b55eac2b764852;p=kivitendo-erp.git

ZIP-Dateien raw auf STDOUT ausgeben
---

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);