/[Grep]/lib/Grep/Source.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Grep/Source.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 110 by dpavlin, Wed Mar 14 20:02:19 2007 UTC revision 113 by dpavlin, Sun Mar 25 11:41:54 2007 UTC
# Line 252  sub scrape { Line 252  sub scrape {
252          my $base_uri = $uri;          my $base_uri = $uri;
253          $base_uri =~ s!\?.*$!!;          $base_uri =~ s!\?.*$!!;
254    
255          foreach my $dt ( $div->look_down( '_tag', $args->{results} ) ) {          my @r = $div->look_down( '_tag', $args->{results} );
256            $self->log->debug("found ", scalar @r, " <$args->{results}>");
257    
258            foreach my $dt ( @r ) {
259                  my $a = $dt->look_down( '_tag', 'a', sub { $_[0]->attr('href') } );                  my $a = $dt->look_down( '_tag', 'a', sub { $_[0]->attr('href') } );
260                  if ( $a ) {                  if ( $a ) {
261    
Legend:
Removed from v.110  
changed lines
  Added in v.113
  ViewVC Help
Powered by ViewVC 1.1.26