in reply to Re: Re: How to map a directory tree to a perl hash tree
in thread How to map a directory tree to a perl hash tree

Sorry Randal. How about if I change the line from

map {$dirth->{$_} = (-d "$dir/$_" ? &dirTreeHash("$dir/$_") : '')} @fi
+les;

[download]

to 

map {$dirth->{$_} = (-d "$dir/$_" ? &dirTreeHash("$dir/$_") : '') unle
+ss (-l "$dir/$_")} @files;

[download]

In Section Seekers of Perl Wisdom