++nice. However, after adding the -w switch I got lots of uninitialized value warnings. They can be avoided by including an early check in the getarticles subroutine:

sub getarticles {
    my $IndentString = shift;
         my $article = shift;
    return unless $Children{$article};
    ...
}



Granted, not a big deal, but I like it better now, with strictures on.




-- Ricardo

use MacPerl;

Comment on Re: Re: Graphical Hierarchical Tree