$class = $this;
my $root=shift;
$self = {
- -depth=>0,
-root=>$root,
-fullpath=>$root,
};
$pos=index($inc,'/',$pos+1)) {
$dp++;
}
+ $self->{-depth} = $dp;
for ($pos=length($fullpath);$dp>0 && $pos>0;
$pos=rindex($fullpath,'/',$pos-1)) {
$dp--;
$self->{-inc} = 'NO-.INCLUDE-IN-PATH/'; # won't work anyway
$self->{-rss} = '';
$self->{-relpath} = '';
+ $self->{-depth} = 0;
}
}