Revision 109

Date:
2011/08/03 18:41:37
Author:
ahitrov
Revision Log:
undef concatenation and regexp warnings
Files:

Legend:

 
Added
 
Removed
 
Modified

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

     
    67 67 my $debug = $DEBUG;
    68 68 my $gui = delete $opts{gui};
    69 69 my $header = decode('utf-8', delete $opts{header});
    70 warn "Header length: ".length($header)."\n";
    70 warn "Header length: ".length($header || '')."\n" if $debug;
    71 71 my $description = decode('utf-8', delete $opts{description});
    72 warn "Description length: ".length($description)."\n";
    72 warn "Description length: ".length($description || '')."\n" if $debug;
    73 73 my $minimum = delete $opts{min} || length $description;
    74 74
    75 75 my $pre_rools = $self->__parse_rools (delete $opts{parser_pre});

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

     
    190 190 $item->{video}{url} :
    191 191 $item->{'videourl'} ||
    192 192 $item->{'video_url'} ||
    193 ($item->{'guid'} =~ /^http:/ ? $item->{'guid'} : undef) ||
    193 ($item->{'guid'} && $item->{'guid'} =~ /^http:/ ? $item->{'guid'} : undef) ||
    194 194 (exists $item->{'link'} && ref $item->{'link'} eq 'HASH' ? $item->{'link'}{'href'} || $item->{'link'}{'url'} : $item->{'link'} );
    195 195 $content_type = 2;
    196 196 }