| … | |
… | |
| 112 | }, $class; |
112 | }, $class; |
| 113 | |
113 | |
| 114 | my %inc_seen; |
114 | my %inc_seen; |
| 115 | my @inc = grep !$inc_seen{$_}++ && -d "$_/.", @{ $self->{inc} }; |
115 | my @inc = grep !$inc_seen{$_}++ && -d "$_/.", @{ $self->{inc} }; |
| 116 | $self->{inc} = \@inc; |
116 | $self->{inc} = \@inc; |
|
|
117 | |
|
|
118 | # maybe not inc, but these? |
|
|
119 | # sitearchexp |
|
|
120 | # sitelib |
|
|
121 | # vendorarchexp |
|
|
122 | # vendorlibexp |
|
|
123 | # archlibexp |
|
|
124 | # privlibexp |
| 117 | |
125 | |
| 118 | $self->_set_inc; |
126 | $self->_set_inc; |
| 119 | |
127 | |
| 120 | $self |
128 | $self |
| 121 | } |
129 | } |
| … | |
… | |
| 204 | } |
212 | } |
| 205 | |
213 | |
| 206 | #$lib{"$_[1]/"} = [\@dirs, \@files]; # won't work nice with overwrite |
214 | #$lib{"$_[1]/"} = [\@dirs, \@files]; # won't work nice with overwrite |
| 207 | } |
215 | } |
| 208 | |
216 | |
|
|
217 | $self->{lib} = \%lib; |
|
|
218 | $self->{matchprefix} = $matchprefix; |
|
|
219 | |
| 209 | my %packlist; |
220 | my %packlist; |
| 210 | |
221 | |
| 211 | # need to go forward here |
222 | # need to go forward here |
| 212 | for (@packlists) { |
223 | for (@packlists) { |
| 213 | my $packlist = $self->_read_packlist ($_->[0], "$_->[1]/.packlist"); |
224 | my $packlist = $self->_read_packlist ($_->[0], "$_->[1]/.packlist"); |
| 214 | |
225 | |
| 215 | $packlist{$_} = $packlist |
226 | $packlist{$_} = $packlist |
| 216 | for @$packlist; |
227 | for @$packlist; |
| 217 | } |
228 | } |
| 218 | |
229 | |
| 219 | $self->{lib} = \%lib; |
|
|
| 220 | $self->{packlist} = \%packlist; |
230 | $self->{packlist} = \%packlist; |
| 221 | $self->{matchprefix} = $matchprefix; |
|
|
| 222 | } |
231 | } |
| 223 | |
232 | |
| 224 | =back |
233 | =back |
| 225 | |
234 | |
| 226 | =head2 TRACE/PACKLIST BASED ADDING |
235 | =head2 TRACE/PACKLIST BASED ADDING |
