Revision 73c7fcda
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
1413 | 1413 |
for my $i (1 .. $self->{copies}) { |
1414 | 1414 |
if ($self->{OUT}) { |
1415 | 1415 |
open OUT, '>', $self->{OUT} or $self->error($self->cleanup . "$self->{OUT} : $!"); |
1416 |
print OUT while <IN>; |
|
1416 |
print OUT $_ while <IN>;
|
|
1417 | 1417 |
close OUT; |
1418 | 1418 |
seek IN, 0, 0; |
1419 | 1419 |
|
Auch abrufbar als: Unified diff
Fehler beim kopieren von Daten auf ein Filehandle
unter bestimmten umständen konnte das Filehandle als string auf die Standardausgabe kopiert werden.