x-file tests

[HENRY,MARK (HP-Roseville,ex1)]

Hi All,

I'm experiencing some odd results using the x file tests on files and
directories.

When I run the following: 

opendir(CURDIR, "c:\\") or die "cant open directory: $!\n";
        foreach $direntry (readdir CURDIR) {
                if (-f $direntry) { print "$direntry is a file..\n"; }
                elsif (-d $direntry) { print "$direntry is a directory..\n";
}
        }

..out of the approx 55 directories and 96 files in my root dir, I only get
one single print statement to fire on one very uninteresting text file.

Granted perl may not recognize what exactly the different binary file are,
but shouldn't it report that they're at least files - an it recognizes
directories at all.

I'm using activestate build 633..

Cheers,

Mark



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