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