Fehler beim kopieren von Daten auf ein Filehandle

unter bestimmten umständen konnte das Filehandle als string auf die Standardausgabe kopiert werden.

diff --git a/SL/Form.pm b/SL/Form.pm
index f50cba70d381e183166c9cdeb2c9cf928cec8143..da832f8712aa0266f02055b98d7224bcf2327643 100644 (file)
--- 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} : $!");
       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;
 
           close OUT;
           seek IN, 0, 0;