… | … | ||
---|---|---|---|
122 | my ($w, $h) = unpack "NN", $1; | 122 | my ($w, $h) = unpack "NN", $1; |
123 | 123 | ||
124 | (my $face = $path) =~ s/^.*\///; | 124 | (my $face = $path) =~ s/^.*\///; |
125 | my $T = 32; | 125 | my $T = 32; |
126 | 126 | ||
127 | unless ($face =~ s/\.base\.(...)\.png$/.$1/) { | 127 | unless ($face =~ s/\.32x32\.png$//) { |
128 | warn "$path: weird filename, skipping.\n"; | 128 | warn "$path: weird filename, skipping.\n"; |
129 | next; | 129 | next; |
130 | } | 130 | } |
131 | 131 | ||
132 | if ($w < $T || $h < $T) { | 132 | if ($w < $T || $h < $T) { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |