From 73c7fcda3fffdde721d283e8828a2954bdfcf561 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 25 Oct 2011 14:59:59 +0200
Subject: [PATCH] Fehler beim kopieren von Daten auf ein Filehandle
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

unter bestimmten umständen konnte das Filehandle als string auf die Standardausgabe kopiert werden.
---
 SL/Form.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index f50cba70d..da832f871 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1413,7 +1413,7 @@ sub parse_template {
       for my $i (1 .. $self->{copies}) {
         if ($self->{OUT}) {
           open OUT, '>', $self->{OUT} or $self->error($self->cleanup . "$self->{OUT} : $!");
-          print OUT while <IN>;
+          print OUT $_ while <IN>;
           close OUT;
           seek IN, 0, 0;
 
-- 
2.20.1