From: Sven Schöling <s.schoeling@linet-services.de>
Date: Fri, 16 Sep 2011 15:05:19 +0000 (+0200)
Subject: Nachtrag zu 3-arg open: STDOUT nicht überflüssig öffnen.
X-Git-Tag: release-2.7.0beta1~281^2~3
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=84565d3d86385bbb8a3caf453168ca1e114a01bd;p=kivitendo-erp.git

Nachtrag zu 3-arg open: STDOUT nicht überflüssig öffnen.

Führte zu einem skurrilen Bug wo der :raw Layer unter cgi nicht auf STDOUT propagiert wird
---

diff --git a/SL/Form.pm b/SL/Form.pm
index e44f3977d..06a8910a7 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1410,6 +1410,7 @@ sub parse_template {
         if ($self->{OUT}) {
           open OUT, '>', $self->{OUT} or $self->error($self->cleanup . "$self->{OUT} : $!");
           print OUT while <IN>;
+          close OUT;
           seek IN, 0, 0;
 
         } else {
@@ -1424,10 +1425,8 @@ Content-Length: $numbytes
 
 |;
 
-          open(OUT, ">&", \*STDOUT) or $self->error($self->cleanup . "$!: STDOUT");
-          $::locale->with_raw_io(*OUT, sub { print while <IN> });
+          $::locale->with_raw_io(\*STDOUT, sub { print while <IN> });
         }
-        close OUT;
       }
 
       close(IN);