| 
      
            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 | 
              -   | 
               | 
               |