| … | … | ||
|---|---|---|---|
| 626 | my @plt; | 626 | my @plt; |
| 627 | my %map; | 627 | my %map; |
| 628 | 628 | ||
| 629 | for (split /\n/, $plt) { | 629 | for (split /\n/, $plt) { |
| 630 | next unless /\S/; | 630 | next unless /\S/; |
| 631 | next if /^\s*#/; | ||
| 631 | 632 | ||
| 632 | /^([0-9a-fA-F]{3,6})\s*(.*?)\s*$/ | 633 | /^([0-9a-fA-F]{3,6})\s*(.*?)\s*$/ |
| 633 | or die "unparseable palette entry for $base.plt: $_"; | 634 | or die "unparseable palette entry for $base.plt: $_"; |
| 634 | 635 | ||
| 635 | my ($rgb, $name) = ($1, $2); | 636 | my ($rgb, $name) = ($1, $2); |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |