| … | |
… | |
| 1134 | my ($self) = @_; |
1134 | my ($self) = @_; |
| 1135 | |
1135 | |
| 1136 | return if exists $self->{meta}; |
1136 | return if exists $self->{meta}; |
| 1137 | |
1137 | |
| 1138 | my @urxvtdirs = perl_libdirs $self; |
1138 | my @urxvtdirs = perl_libdirs $self; |
| 1139 | my @cpandirs = grep -d, map "$_/URxvt/Ext", @INC; |
1139 | # my @cpandirs = grep -d, map "$_/URxvt/Ext", @INC; |
| 1140 | |
1140 | |
| 1141 | $self->{meta} = \my %meta; |
1141 | $self->{meta} = \my %meta; |
| 1142 | |
1142 | |
| 1143 | # first gather extensions |
1143 | # first gather extensions |
| 1144 | |
1144 | |
| … | |
… | |
| 1181 | |
1181 | |
| 1182 | $meta{ext}{$ext} = \%ext; |
1182 | $meta{ext}{$ext} = \%ext; |
| 1183 | } |
1183 | } |
| 1184 | }; |
1184 | }; |
| 1185 | |
1185 | |
| 1186 | $gather->($_, 0) for @cpandirs; |
1186 | # $gather->($_, 0) for @cpandirs; |
| 1187 | $gather->($_, 1) for @urxvtdirs; |
1187 | $gather->($_, 1) for @urxvtdirs; |
| 1188 | |
1188 | |
| 1189 | # and now merge resources |
1189 | # and now merge resources |
| 1190 | |
1190 | |
| 1191 | $meta{resource} = \my %resource; |
1191 | $meta{resource} = \my %resource; |
