X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkgallery.pl;fp=mkgallery.pl;h=1031da6949dfab9397931ccfc0adfa993dfa33b5;hp=f7ef6c3e7ef4ff41411a9b379e9b42e4e8269310;hb=ac56653c78029ac04ba470022e46d7169fcefbd7;hpb=c54609fad7876eddd650ffc960d1fa463cf44845 diff --git a/mkgallery.pl b/mkgallery.pl index f7ef6c3..1031da6 100755 --- a/mkgallery.pl +++ b/mkgallery.pl @@ -117,7 +117,6 @@ sub new { $class = $this; my $root=shift; $self = { - -depth=>0, -root=>$root, -fullpath=>$root, }; @@ -159,6 +158,7 @@ sub initpaths { $pos=index($inc,'/',$pos+1)) { $dp++; } + $self->{-depth} = $dp; for ($pos=length($fullpath);$dp>0 && $pos>0; $pos=rindex($fullpath,'/',$pos-1)) { $dp--; @@ -174,6 +174,7 @@ sub initpaths { $self->{-inc} = 'NO-.INCLUDE-IN-PATH/'; # won't work anyway $self->{-rss} = ''; $self->{-relpath} = ''; + $self->{-depth} = 0; } }