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 |
- |
|
|