|
Lines 351-357
if (defined $output && $output ne '-') {
Link Here
|
| 351 |
print STDERR "$0: Outputting to STDOUT...\n" if $verbose_p; |
351 |
print STDERR "$0: Outputting to STDOUT...\n" if $verbose_p; |
| 352 |
open(OUTPUT, ">&STDOUT"); |
352 |
open(OUTPUT, ">&STDOUT"); |
| 353 |
} |
353 |
} |
| 354 |
binmode( OUTPUT, ":utf8" ); |
354 |
#binmode( OUTPUT, ":utf8" ); |
| 355 |
|
355 |
|
| 356 |
if (defined $files_from) { |
356 |
if (defined $files_from) { |
| 357 |
print STDERR "$0: Opening input file list \"$files_from\"\n" if $verbose_p; |
357 |
print STDERR "$0: Opening input file list \"$files_from\"\n" if $verbose_p; |
| 358 |
- |
|
|