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