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