Unfortunately using -f and -d doesn't work if someone has already opened them as handles, instead it just throws an error saying 'The dirfd function is unimplemented'

The dirfd function is unimplemented

This only happens (for me) if the handle is a dirhandle:

C:\_32>perl -le "opendir $rd, 'special' or die $!; print 'dir' if -d $
+rd; print 'file' if -f $rd;"
The dirfd function is unimplemented at -e line 1.

C:\_32>perl -le "opendir RD, 'special' or die $!; print 'dir' if -d RD
+; print 'file' if -f RD;"
The dirfd function is unimplemented at -e line 1.

C:\_32>perl -le "opendir RD, 'special' or die $!; print 'dir' if -d \*
+RD; print 'file' if -f \*RD;"
The dirfd function is unimplemented at -e line 1.
[download]


With a filehandle it seems fine:

C:\_32>perl -le "open $rd, 'try.pl' or die $!; print 'dir' if -d $rd; 
+print 'file' if -f $rd;"
file

C:\_32>perl -le "open RD, 'try.pl' or die $!; print 'dir' if -d RD; pr
+int 'file' if -f RD;"
file

C:\_32>perl -le "open RD, 'try.pl' or die $!; print 'dir' if -d \*RD; 
+print 'file' if -f \*RD;"
file
[download]

Surely this behaviour with dirhandles is a serious bug that should be reported to p5p ?
I can see nothing in the -X documentation that allows such behaviour, and I can see plenty there that disallows it.

Cheers,
Rob

I will send an email to perlbug@perl.org with a link to this post