Changeset 1721

Show
Ignore:
Timestamp:
04/02/08 17:55:54 (23 months ago)
Author:
bchoate
Message:

Fix for warnings from SpamLookup. BugId:65586

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • branches/release-33/plugins/spamlookup/lib/spamlookup.pm

    r1174 r1721  
    139139                my @textdomains = extract_domains($obj->text); 
    140140                if (!@textdomains) { 
    141                     my $url = $obj->url; 
     141                    my $url = $obj->url || ''; 
    142142                    $url =~ s/^\s+|\s+$//gs; 
    143143                    if ($url =~ m!https?://\w+!) { # valid url requirement... 
    … …  
    163163                } 
    164164            } elsif (UNIVERSAL::isa($obj, 'MT::TBPing')) { 
    165                 my $url = $obj->source_url; 
     165                my $url = $obj->source_url || ''; 
    166166                $url =~ s/^\s+|\s+$//gs; 
    167167                my $terms = { source_url => $url,