|
Lines 272-278
RECORD: while ( ) {
Link Here
|
| 272 |
# changed to warn so able to continue with one broken record |
272 |
# changed to warn so able to continue with one broken record |
| 273 |
if ( defined $error ) { |
273 |
if ( defined $error ) { |
| 274 |
warn "unable to search the database for duplicates : $error"; |
274 |
warn "unable to search the database for duplicates : $error"; |
| 275 |
next; |
275 |
next RECORD; |
| 276 |
} |
276 |
} |
| 277 |
$debug && warn "$query $server : $totalhits"; |
277 |
$debug && warn "$query $server : $totalhits"; |
| 278 |
if ( $results && scalar(@$results) == 1 ) { |
278 |
if ( $results && scalar(@$results) == 1 ) { |
| 279 |
- |
|
|