[Templates] Argument ":utf8" isn't numeric in ...

[Ask Bjørn Hansen]

When running process with { binmode => ':utf8' }, I get this warning,

Argument ":utf8" isn't numeric in numeric eq (==) at /Library/Perl/ 
5.8.6/darwin-thread-multi-2level/Template.pm line 193.

Easiest change would be to just make the test $bm eq 1 rather than  
the +$bm == 1 thing.


  - ask


         elsif (open(FP, ">$where")) {
             # binmode option can be 1 or a specific layer, e.g. :utf8
             my $bm = $options->{ binmode  };
             if ($bm && +$bm == 1) {
                 binmode FP;
             }
             elsif ($bm){
                 binmode FP, $bm;
             }



-- 
http://develooper.com/ - http://askask.com/