--- lib/Grep/Source.pm 2007/05/01 21:06:10 134 +++ lib/Grep/Source.pm 2007/05/02 09:37:06 135 @@ -233,13 +233,11 @@ my @results; my @tags; -warn "triplets = ",dump( @triplets ); - + $self->log->debug("looking for $message ", dump( @triplets )); while ( @triplets ) { ( $el,$attr,$value ) = splice( @triplets, 0, 3 ); my $tag = $attr ? "<$el $attr=\"$value\">" : "<$el>"; push @tags, $tag; - $self->log->debug("looking for $message $tag"); @results = $tree->look_down( '_tag', $el, sub { return 1 unless ( $attr && $value ); ( $_[0]->attr( $attr ) || '' ) =~ m/\b\Q$value\E\b/ @@ -248,14 +246,13 @@ } if ( ! @results ) { - my $msg = "can't find $message ", join(" ", @tags); + my $msg = "can't find $message " . join(" ", @tags); die $msg if ( $fatal ); - warn $msg; + #warn $msg; return; } - $self->log->debug("found ", $#results + 1, " results"); - + $self->log->debug("found ", $#results + 1, " elements"); #warn dump( map { $_->as_HTML } @results ); return @results if wantarray; @@ -401,7 +398,7 @@ if ( @divs ) { my $html = join("
\n", map { $_->as_HTML } @divs ); - $self->log->debug("found ", $#divs + 1, " element ", length($html), " bytes"); + $self->log->debug("combined ", $#divs + 1, " elements elements in ", length($html), " bytes"); $self->add_record( in_feed => $feed,