Changeset 7669 in josm for trunk/geticons.pl
- Timestamp:
- 2014-10-29T15:49:19+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/geticons.pl
r7668 r7669 30 30 { 31 31 next if $l =~ /NO-ICON/; 32 if($l =~ /src\s*=\s*["'](.*?)["']/) 33 { 34 my $img = "styles/standard/$1"; 35 $img = "styles/$1" if((!-f "images/$img") && -f "images/styles/$1"); 36 $img = $1 if((!-f "images/$img") && -f "images/$1"); 37 ++$icons{$img}; 38 } 39 elsif($l =~ /icon\s*[:=]\s*["']([^+]+?)["']/) 32 if($l =~ /icon\s*[:=]\s*["']([^+]+?)["']/) 40 33 { 41 34 ++$icons{$1};
Note: See TracChangeset
for help on using the changeset viewer.