Fehler beim kopieren von Daten auf ein Filehandle
authorSven Schöling <s.schoeling@linet-services.de>
Tue, 25 Oct 2011 12:59:59 +0000 (14:59 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Tue, 25 Oct 2011 12:59:59 +0000 (14:59 +0200)
unter bestimmten umständen konnte das Filehandle als string auf die Standardausgabe kopiert werden.

SL/Form.pm

index f50cba7..da832f8 100644 (file)
@@ -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;