Revision 84565d3d
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
if ($self->{OUT}) {
|
||
|
open OUT, '>', $self->{OUT} or $self->error($self->cleanup . "$self->{OUT} : $!");
|
||
|
print OUT while <IN>;
|
||
|
close OUT;
|
||
|
seek IN, 0, 0;
|
||
|
|
||
|
} else {
|
||
| ... | ... | |
|
|
||
|
|;
|
||
|
|
||
|
open(OUT, ">&", \*STDOUT) or $self->error($self->cleanup . "$!: STDOUT");
|
||
|
$::locale->with_raw_io(*OUT, sub { print while <IN> });
|
||
|
$::locale->with_raw_io(\*STDOUT, sub { print while <IN> });
|
||
|
}
|
||
|
close OUT;
|
||
|
}
|
||
|
|
||
|
close(IN);
|
||
Auch abrufbar als: Unified diff
Nachtrag zu 3-arg open: STDOUT nicht überflüssig öffnen.
Führte zu einem skurrilen Bug wo der :raw Layer unter cgi nicht auf STDOUT propagiert wird