| 
      
            Lines 272-277
          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 | 
                          printlog( { id => $id || $originalid || $match, op => "match", status => "ERROR" } ) if ($logfile); | 
            
        
          | 275 | 
                      next RECORD;  | 
          276 | 
                      next RECORD;  | 
        
        
          | 276 | 
                  }  | 
          277 | 
                  }  | 
        
        
          | 277 | 
                  $debug && warn "$query $server : $totalhits";  | 
          278 | 
                  $debug && warn "$query $server : $totalhits";  | 
        
            
              | 278 | 
              -   | 
               | 
               |