use warnings;
use strict;

use Inline C => <<'END_OF_C';
void myreaddir(SV* sv_dirn) {
	Inline_Stack_Vars;
	Inline_Stack_Reset;
	int fd = open( SvPVx(sv_dirn, PL_na),
		O_RDONLY|O_DIRECTORY|O_NOFOLLOW);
	if (fd<0) Inline_Stack_Return(0);
	DIR* dir = fdopendir(fd);
	if (dir==NULL) Inline_Stack_Return(0);
	struct dirent *dp;
	while ( (dp=readdir(dir)) != NULL )
		Inline_Stack_Push(sv_2mortal(
			newSVpvf("%s", dp->d_name) ));
	if( closedir(dir)!=0 ) Inline_Stack_Return(0);
	Inline_Stack_Done;
}
int _xs_myfdopendir(SV* sv_dirn, SV* sv_hnd) {
	int fd = open( SvPVx(sv_dirn, PL_na),
		O_RDONLY|O_DIRECTORY|O_NOFOLLOW);
	if (fd<0) return 0;
	DIR* dir = fdopendir(fd);
	if (dir==NULL) return 0;
	IoDIRP(sv_2io(sv_hnd)) = dir;
	return 1;
}
END_OF_C
use Symbol qw/geniosym/;
use File::Spec;
sub myfdopendir {
	return unless _xs_myfdopendir(
		$_[0]//File::Spec->curdir,
		my $dh=geniosym );
	return $dh;
}

use Data::Dump;
my @x = myreaddir('/tmp') or die $!;
dd @x;
my $dh = myfdopendir('/tmp') or die $!;
dd readdir $dh;
closedir $dh or die $!;