99 |
|
: $self->{SUFFIX}; |
100 |
|
} |
101 |
|
|
102 |
+ |
sub skip() |
103 |
+ |
{ |
104 |
+ |
my $self=shift; |
105 |
+ |
# Skip/unskip a directory: |
106 |
+ |
@_ ? $self->{SKIP} = shift |
107 |
+ |
: $self->{SKIP}; |
108 |
+ |
} |
109 |
+ |
|
110 |
|
sub name() |
111 |
|
{ |
112 |
|
my $self=shift; |
143 |
|
{ |
144 |
|
my $self=shift; |
145 |
|
my ($rawdata)=@_; |
146 |
< |
|
146 |
> |
|
147 |
|
if ($rawdata) |
148 |
|
{ |
149 |
|
$self->{RAWDATA} = $rawdata; |
266 |
|
if ($meta) |
267 |
|
{ |
268 |
|
# Delete unneeded entries: |
269 |
< |
$meta->clean(qw( EXPORT DEFINED_GROUP CLASSPATH )); |
269 |
> |
$meta->clean(qw( EXPORT DEFINED_GROUP CLASSPATH SKIPPEDDIRS )); |
270 |
|
$self->{BRANCHMETA} = $meta; |
271 |
|
} |
272 |
|
else |