Revision 84565d3d
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1410 | 1410 |
if ($self->{OUT}) {
|
| 1411 | 1411 |
open OUT, '>', $self->{OUT} or $self->error($self->cleanup . "$self->{OUT} : $!");
|
| 1412 | 1412 |
print OUT while <IN>; |
| 1413 |
close OUT; |
|
| 1413 | 1414 |
seek IN, 0, 0; |
| 1414 | 1415 |
|
| 1415 | 1416 |
} else {
|
| ... | ... | |
| 1424 | 1425 |
|
| 1425 | 1426 |
|; |
| 1426 | 1427 |
|
| 1427 |
open(OUT, ">&", \*STDOUT) or $self->error($self->cleanup . "$!: STDOUT"); |
|
| 1428 |
$::locale->with_raw_io(*OUT, sub { print while <IN> });
|
|
| 1428 |
$::locale->with_raw_io(\*STDOUT, sub { print while <IN> });
|
|
| 1429 | 1429 |
} |
| 1430 |
close OUT; |
|
| 1431 | 1430 |
} |
| 1432 | 1431 |
|
| 1433 | 1432 |
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