From 84565d3d86385bbb8a3caf453168ca1e114a01bd Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 16 Sep 2011 17:05:19 +0200
Subject: [PATCH] =?utf8?q?Nachtrag=20zu=203-arg=20open:=20STDOUT=20nicht?=
 =?utf8?q?=20=C3=BCberfl=C3=BCssig=20=C3=B6ffnen.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Führte zu einem skurrilen Bug wo der :raw Layer unter cgi nicht auf STDOUT propagiert wird
---
 SL/Form.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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