Revision 84565d3d
Von Sven Schöling vor mehr als 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