Parent Directory | Revision Log | Patch
revision 234 by dpavlin, Tue Nov 24 00:02:01 2009 UTC | revision 236 by dpavlin, Tue Nov 24 00:51:03 2009 UTC | |
---|---|---|
# | Line 46 sub on_shard { | Line 46 sub on_shard { |
46 | last; | last; |
47 | } | } |
48 | ||
49 | my $ok = eval { $coderef->( $data->[$pos] ) }; | 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++ if $ok; | $affected++; |
56 | } | } |
57 | ||
58 | # $pos % 10000 == 0 ? print STDERR $pos : | # $pos % 10000 == 0 ? print STDERR $pos : |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |