in reply to Recursive New Files Generation Thing

Maybe you'll want to check for symlinks at 
if (-d $dirz)

[download]
like 
if (-d $dirz && ! -l $dirz)

[download]
to keep it from following the symlinks and maybe ending up in a infinite loop...
Or port it to File::Find.

Recursive things like this is a sensitive thing around here. ;)

/brother t0mas

Replies are listed 'Best First'.
RE: RE: Recursive New Files Generation Thing
by cleen (Pilgrim) on Jul 03, 2000 at 02:21 UTC
    Well, it makes the symlinks in $ndir and if you look at the @dont array, $ndir is included, heheh, I kinda forgot to mention in the comments that $ndir should stay in there. But your right, I should be checking for not only the existance but to make sure they are not symlinks. I dont think symlinking symlinks is a good idea anyway, well at least not in this code. Thanks t0mas!

    By the way, this is why I love perlmonks.
    -cleen
[reply]

In Section Craft