--- perl/trunk/Fuse.xs 2004/11/11 14:44:15 4 +++ perl/trunk/Fuse.xs 2004/11/26 20:38:56 8 @@ -2,7 +2,7 @@ #include "perl.h" #include "XSUB.h" -#include +#include #undef DEBUGf #if 0 @@ -32,14 +32,11 @@ else rv = -ENOENT; } else { + result->st_blocks = POPi; result->st_blksize = POPi; result->st_ctime = POPi; result->st_mtime = POPi; result->st_atime = POPi; - /* What the HELL? Perl says the blockcount is the last argument. - * Everything else says the blockcount is the last argument. So why - * was it folded into the middle of the list? */ - result->st_blocks = POPi; result->st_size = POPi; result->st_rdev = POPi; result->st_gid = POPi; @@ -101,7 +98,7 @@ if(prv) { rv = POPi; while(--prv) - dirfil(dirh,POPp,0); + dirfil(dirh,POPp,0,0); } else { fprintf(stderr,"getdir() handler returned nothing!\n"); rv = -ENOSYS;