Changeset 712bdf504027850e862f3ebd95bd8073771ca78f
- Timestamp:
- 12/05/09 19:52:49 (9 months ago)
- Author:
- Stephen Bennett <spb@…>
- Parents:
- 67960fec2b001ccf21e16b72be1aa310ba1e26ab
- Children:
- c59673ce8cf87c677db5c213f954df35ddbd7916
- git-committer:
- Stephen Bennett <spb@exherbo.org> / 2009-12-05T19:52:49Z+0000
- Message:
-
Use search instead of find when we expect lots of results. Remove a debug print
- Files:
-
Legend:
- Unmodified
- Added
- Removed
-
|
r86158a8
|
r712bdf5
|
|
| 20 | 20 | use Data::Dumper; |
| 21 | 21 | |
| 22 | | foreach my $group ( $rs->find( { status => 'auto_pending' } ) ) |
| | 22 | foreach my $group ( $rs->search( { status => 'auto_pending' } ) ) |
| 23 | 23 | { |
| 24 | 24 | last if !$group; |
| … |
… |
|
| 32 | 32 | if ($res->is_success) |
| 33 | 33 | { |
| 34 | | print $res->content; |
| 35 | 34 | if (-1 != index($res->content, $token)) |
| 36 | 35 | { |
