… | |
… | |
1077 | |
1077 | |
1078 | for my $dir (reverse @libdirs) { |
1078 | for my $dir (reverse @libdirs) { |
1079 | opendir my $fh, $dir |
1079 | opendir my $fh, $dir |
1080 | or next; |
1080 | or next; |
1081 | for my $ext (readdir $fh) { |
1081 | for my $ext (readdir $fh) { |
1082 | $ext ne "." |
1082 | $ext !~ /^\./ |
1083 | and $ext ne ".." |
|
|
1084 | and open my $fh, "<", "$dir/$ext" |
1083 | and open my $fh, "<", "$dir/$ext" |
1085 | or next; |
1084 | or next; |
1086 | |
1085 | |
1087 | while (<$fh>) { |
1086 | while (<$fh>) { |
1088 | if (/^#:META:X_RESOURCE:(.*)/) { |
1087 | if (/^#:META:X_RESOURCE:(.*)/) { |