| … | |
… | |
| 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 | |
|
|
1191 | $meta{resource} = \my %resource; |
|
|
1192 | |
| 1190 | while (my ($k, $v) = each %{ $meta{ext} }) { |
1193 | while (my ($k, $v) = each %{ $meta{ext} }) { |
| 1191 | #TODO: should check for extensions overriding each other |
1194 | #TODO: should check for extensions overriding each other |
| 1192 | %{ $meta{resource} } = (%{ $meta{resource} }, %{ $v->{resource} }); |
1195 | %resource = (%resource, %{ $v->{resource} }); |
| 1193 | } |
1196 | } |
| 1194 | } |
1197 | } |
| 1195 | |
1198 | |
| 1196 | =item $term = new urxvt::term $envhashref, $rxvtname, [arg...] |
1199 | =item $term = new urxvt::term $envhashref, $rxvtname, [arg...] |
| 1197 | |
1200 | |
