I wrote a basic directory parser and my system refuses to output the contents using the -d check, although without using it everything gets output. So I'm sort of at a loss. I'll post the code, just so you can see I'm not crazy.

My question is, does anyone have any idea what would be causing this? ls -d does the same thing, it only reports that ". and .." are directories.

edit: actually my last observation that I added (without thinking about what I was writing) clearly demonstrates that this is a system thing and nothing to do with Perl. Best.

 my $dir = "/";
opendir(DH, $dir) or die "Couldn't open directory: $dir";
while(my $line = readdir(DH)){
        chomp $line;
        if ($line =~ /^\./){
                next;
        }
        elsif (-d $line){
                print "$line\n";
        }
}
close(DH);
[download]