| 
      
            Lines 268-273
          sub _get_sort_bin {
      
      
        Link Here
      
     | 
  
        
          | 268 | 
              my $rule = 0;  | 
          268 | 
              my $rule = 0;  | 
        
        
          | 269 | 
              RULE: foreach my $line (@lines) { | 
          269 | 
              RULE: foreach my $line (@lines) { | 
        
        
          | 270 | 
           | 
          270 | 
           | 
        
            
               | 
               | 
              271 | 
                      # Skip empty lines and comments  | 
            
            
              | 272 | 
                      next if ( $line =~ /^\s*($|#)/ );  | 
            
            
              | 273 | 
               | 
            
            
              | 274 | 
                      # Skip malformed lines  | 
            
            
              | 275 | 
                      my $count = () = $line =~ /\Q:/g;  | 
            
            
              | 276 | 
                      next if ( --$count % 3 );  | 
            
            
              | 277 | 
               | 
            
        
          | 271 | 
                  my $match = 0;  | 
          278 | 
                  my $match = 0;  | 
        
        
          | 272 | 
           | 
          279 | 
           | 
        
        
          | 273 | 
                  # Split the line into fields  | 
          280 | 
                  # Split the line into fields  | 
        
            
              | 274 | 
              -   | 
               | 
               |