/[Sack]/trunk/lib/Sack/View.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 /trunk/lib/Sack/View.pm

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

revision 232 by dpavlin, Mon Nov 23 23:15:31 2009 UTC revision 234 by dpavlin, Tue Nov 24 00:02:01 2009 UTC
# Line 46  sub on_shard { Line 46  sub on_shard {
46                          last;                          last;
47                  }                  }
48    
49                  eval { $coderef->( $data->[$pos] ) };                  my $ok = eval { $coderef->( $data->[$pos] ) };
50    
51                  if ( $@ ) {                  if ( $@ ) {
52                          warn "ABORT at $pos error $@\n";                          warn "ABORT at $pos error $@\n";
53                          last;                          last;
54                  } else {                  } else {
55                          $affected++;                          $affected++ if $ok;
56                  }                  }
57    
58  #               $pos % 10000 == 0 ? print STDERR $pos :  #               $pos % 10000 == 0 ? print STDERR $pos :
Legend:
Removed from v.232  
changed lines
  Added in v.234
  ViewVC Help
Powered by ViewVC 1.1.26