<URL: https://rt.cpan.org/Ticket/Display.html?id=73623 >
Fix:
- my $need2slurp = $use_bom{ find_encoding($to)->name };
+ my $need2slurp = $use_bom{ find_encoding($from)->name };
+ if ($Opt{debug}){
+ printf "Read mode: %s\n", $need2slurp ? 'Slurp' : 'Line';
+ }
Thread Previous
|
Thread Next