Changeset 1194

Show
Ignore:
Timestamp:
08/01/06 16:30:06
Author:
miyagawa
Message:

CustomFeed?::Simple: fixed UUV warnings. removed bogus check of token[0] eq "S"

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Plugin/CustomFeed/Simple.pm

    r1059 r1194  
    5757    my $parser = HTML::TokeParser->new(\$content); 
    5858    while (my $token = $parser->get_tag('a')) { 
    59         next unless $token->[0] eq 'S' || $token->[1]->{href} =~ /$re/; 
     59        next unless ($token->[1]->{href} || '') =~ /$re/; 
    6060 
    6161        my $text = $parser->get_trimmed_text('/a');