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.