Show
Ignore:
Timestamp:
11/26/08 17:43:51 (4 years ago)
Author:
daisuke
Message:

try not to die while parsing broken image

Location:
lang/perl/XML-RSS-LibXML/trunk
Files:
1 added
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/XML-RSS-LibXML/trunk/lib/XML/RSS/LibXML/V2_0.pm

    r15939 r24948  
    155155        my $field = 'skip' . ucfirst($type) . 's'; 
    156156        if (my $skip = delete $h{$field}) { 
    157             if (! UNIVERSAL::isa($skip, 'XML::RSS::LibXML::ElementSpec')) { 
     157            if (ref $skip ne 'HASH') { 
     158                warn "field $field has invalid entry (does this RSS validate?)"; 
     159            } elsif (! UNIVERSAL::isa($skip, 'XML::RSS::LibXML::ElementSpec')) { 
    158160                $c->$field(UNIVERSAL::isa($skip, 'XML::RSS::LibXML::MagicElement') ? $skip : %$skip); 
    159161            } 
    … …  
    163165    foreach my $field qw(textinput image) { 
    164166        if (my $v = $h{$field}) { 
    165             if (! UNIVERSAL::isa($v, 'XML::RSS::LibXML::ElementSpec')) { 
     167            if (ref $v ne 'HASH') { 
     168                warn "field $field has invalid entry (does this RSS validate?)"; 
     169            } elsif (! UNIVERSAL::isa($v, 'XML::RSS::LibXML::ElementSpec')) { 
    166170                $c->$field(UNIVERSAL::isa($v, 'XML::RSS::LibXML::MagicElement') ? $v : %$v); 
    167171            }