| Subject: | bug in remove |
| Date: | Wed, 26 May 2010 11:19:17 +0200 |
| To: | bug-Path-Class [...] rt.cpan.org |
| From: | Róbert Oroszi <robert [...] oroszi.net> |
Hi i just found a bug in Path::Class.
Now remove sub looks like this:
sub remove {
my $file = shift->stringify;
return unlink $file unless -e $file; # Sets $! correctly
1 while unlink $file;
return not -e $file;
}
BUT it cannot remove the file, because "unless -e $file" returns true,
so you should change like this:
return unlink $file unless !(-e $file);
thx