rmtree

[Tambet Ingo]

Hello,

I'm having trouble using rmtree function from File::Path. It fails in
rmtree function:

.....
my($root);
foreach $root (@{$roots}) {
        $root =~ s#/\z##;
        (undef, undef, my $rp) = lstat $root or next;
        $rp &= 07777;   # don't forget setuid, setgid, sticky bits
        if ( -d _ ) {
.....

lstat succeeds, I'm calling with existing directory. But '_' will be
left undef. That same function will work for me if I change  '_' symbol
with $root. What could be wrong? Is it possible that stat caching is
turned off somehow? Weird thing is, if I do a small test script which
just calls rmtree with the same parameters it succeeds. For now, it just
doesn't delete the directory calling

carp "Can't unlink file $root: $!";


Tambet


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]