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 |
if ( --$count % 3 ) { |
277 |
warn "Malformed preference line found: '$line'"; |
278 |
next; |
279 |
} |
280 |
|
271 |
my $match = 0; |
281 |
my $match = 0; |
272 |
|
282 |
|
273 |
# Split the line into fields |
283 |
# Split the line into fields |
274 |
- |
|
|