| … | |
… | |
| 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:(.*)/) { |
