+ $self->{-inc} = $inc.'/';
+ my $dp=0;
+ my $pos;
+ for ($pos=index($inc,'/');$pos>=0;
+ $pos=index($inc,'/',$pos+1)) {
+ $dp++;
+ }
+ for ($pos=length($fullpath);$dp-->0 && $pos>0;
+ $pos=rindex($fullpath,'/',$pos-1)) {;}
+ my $relpath = substr($fullpath,$pos);
+ $relpath =~ s%^/%%;
+ $self->{-relpath} = $relpath;
+ $self->{-toppath} = substr($fullpath,0,$pos);
+ initrss($self);