Select Code to Download

AV *
readdir_inode(dirname)
...
/*RETVAL=newRV_inc((SV*) ret_val);*/
OUTPUT:
    RETVAL

my @ents = readdir_inode(".");
print Dumper @ents;

$VAR1 = [
          [
            '.',
...
          [
            '..',
            255604