Revision 162

Date:
2011/11/01 18:25:25
Author:
ahitrov
Revision Log:
warn only if DEBUG
Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/lib/Contenido/Parser.pm

     
    77 77 $content = <$fh>;
    78 78 }
    79 79 if ( $content ) {
    80 warn "starting content decoding...\n";
    80 warn "starting content decoding...\n" if $DEBUG;
    81 81 if ( exists $self->{headers} && ref $self->{headers} && ($self->{headers}->content_is_html || $self->{headers}->content_is_xhtml || $self->{headers}->content_is_xml) ) {
    82 82 unless ( $encoding ) {
    83 83 $encoding = $self->__try_content_encoding( substr($content, 0, 350) );
    … …  
    105 105 Encode::_utf8_off($val);
    106 106 }
    107 107 } else {
    108 warn "Test: ".$self->{headers}{$header}.": check flag: ".Encode::is_utf8($self->{headers}{$header}).". check: ".Encode::is_utf8($self->{headers}{$header},1)."\n";
    108 warn "Test: ".$self->{headers}{$header}.": check flag: ".Encode::is_utf8($self->{headers}{$header}).". check: ".Encode::is_utf8($self->{headers}{$header},1)."\n" if $DEBUG;
    109 109 if ( Encode::is_utf8($self->{headers}{$header}) && Encode::is_utf8($self->{headers}{$header},1) ) {
    110 110 Encode::_utf8_off($self->{headers}{$header});
    111 111 # Encode::_utf8_on($self->{headers}{$header});