… | |
… | |
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 | } |