Revision 21da0d1a
Von Steven Schubiger vor mehr als 4 Jahren hinzugefügt
| scripts/image_maps.pl | ||
|---|---|---|
| 25 | 25 |
for my $filename (sort @files) {
|
| 26 | 26 |
my $image = `$identify_bin $filename`; |
| 27 | 27 |
if (!defined $image) {
|
| 28 |
warn "warning: could not identify image '$filename'. skpping..."; |
|
| 28 |
warn "warning: could not identify image '$filename'. skipping...";
|
|
| 29 | 29 |
next; |
| 30 | 30 |
} |
| 31 | 31 |
$image =~ /^(?<filename>\S+) \s (?<type>\S+) \s (?<width>\d+) x (?<height>\d+)/x; |
Auch abrufbar als: Unified diff
scripts/image_maps.pl: korrigiere Schreibfehler