---------------------------------------------------------------------------- "THE BEER-WARE LICENSE" (Revision 42) <tobez@catpipe.net> wrote this file. As long as you retain this notice you can do whatever you want with this stuff. If we meet some day, and you think this stuff is worth it, you can buy me a beer in return. Anton Berezin ---------------------------------------------------------------------------- NAME IO::Dir::Dirfd - Perl extension to extract the file descriptor from a dirhandle SYNOPSIS use IO::Dir::Dirfd; opendir D, "." or die $!; my $fd = dirfd(D); use IO::Dir::Dirfd qw(fileno); opendir D, "." or die $!; my $fd = fileno(D); DESCRIPTION The IO::Dir::Dirfd module provides the possibility to extract the file descriptor from a directory handle on platforms where this functionality is available. It exports a single sub, dirfd(), by default. If you specify that you want to export fileno(), the core fileno() will be overrided. After this you can use fileno() for both file- and dirhandles. BUGS As of now, the module was only tested on FreeBSD 4.4 and FreeBSD 5.0; there's no garantee it will work as advertised elsewehere (or even on FreeBSD, for that matter). It is possible that the fileno(HANDLE) form will not work under all circumstances. Use fileno(*HANDLE) instead if in doubt. AUTHOR Anton Berezin, tobez@catpipe.net SEE ALSO dirfd(3). $Id: README,v 1.1 2001/11/21 18:16:40 tobez Exp $