Revision 5ab97a89
Von Sven Schöling vor etwa 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1336 | 1336 |
#print(STDERR "OUT $self->{OUT}\n");
|
| 1337 | 1337 |
for my $i (1 .. $self->{copies}) {
|
| 1338 | 1338 |
if ($self->{OUT}) {
|
| 1339 |
open(OUT, $self->{OUT})
|
|
| 1340 |
or $self->error($self->cleanup . "$self->{OUT} : $!");
|
|
| 1339 |
open OUT, $self->{OUT} or $self->error($self->cleanup . "$self->{OUT} : $!");
|
|
| 1340 |
print OUT while <IN>; |
|
| 1341 |
close OUT; |
|
| 1342 |
seek IN, 0, 0; |
|
| 1343 |
|
|
| 1341 | 1344 |
} else {
|
| 1342 | 1345 |
$self->{attachment_filename} = ($self->{attachment_filename})
|
| 1343 | 1346 |
? $self->{attachment_filename}
|
| ... | ... | |
| 1350 | 1353 |
|
| 1351 | 1354 |
|; |
| 1352 | 1355 |
|
| 1353 |
open(OUT, ">-") or $self->error($self->cleanup . "$!: STDOUT"); |
|
| 1354 |
|
|
| 1355 |
} |
|
| 1356 |
|
|
| 1357 |
while (<IN>) {
|
|
| 1358 |
print OUT $_; |
|
| 1359 |
|
|
| 1356 |
$::locale->with_raw_io(\*STDOUT, sub { print while <IN> });
|
|
| 1360 | 1357 |
} |
| 1361 |
|
|
| 1362 |
close(OUT); |
|
| 1363 |
|
|
| 1364 |
seek IN, 0, 0; |
|
| 1365 | 1358 |
} |
| 1366 | 1359 |
|
| 1367 | 1360 |
close(IN); |
Auch abrufbar als: Unified diff
STDOUT erneut öffnen unt UTF8-Flag und FastCGI gefixt
Conflicts: