Otherwise, we'd have to account for the additional `directory ' part
of a diagnostic like this:
fail-eperm: unexpected dignostic from `rm -f /tmp/.pcmcia';
got rm: cannot remove directory `/tmp/.pcmcia': Is a directory
expected rm: cannot remove `/tmp/.pcmcia': ...
foreach my $f (readdir DIR_HANDLE)
{
- # Skip files owned by self, and symlinks.
+ # Skip files owned by self, symlinks, and directories.
# It's not technically necessary to skip symlinks, but it's simpler.
- -l $f || -o _
+ -l $f || -o _ || -d _
and next;
$found_file = 1;