| … | |
… | |
| 1360 | or next; |
1360 | or next; |
| 1361 | |
1361 | |
| 1362 | while (<$fh>) { |
1362 | while (<$fh>) { |
| 1363 | if (/^#:META:X_RESOURCE:(.*)/) { |
1363 | if (/^#:META:X_RESOURCE:(.*)/) { |
| 1364 | my ($pattern, $type, $desc) = split /:/, $1; |
1364 | my ($pattern, $type, $desc) = split /:/, $1; |
| 1365 | $pattern =~ s/^%(?:\.|$)/$ext./g; # % in pattern == extension name |
1365 | $pattern =~ s/^%(\.|$)/$ext$1/g; # % in pattern == extension name |
| 1366 | if ($pattern =~ /[^a-zA-Z0-9\-\.]/) { |
1366 | if ($pattern =~ /[^a-zA-Z0-9\-\.]/) { |
| 1367 | warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n"; |
1367 | warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n"; |
| 1368 | } else { |
1368 | } else { |
| 1369 | $meta{resource}{$pattern} = [$ext, $type, $desc]; |
1369 | $meta{resource}{$pattern} = [$ext, $type, $desc]; |
| 1370 | } |
1370 | } |
