Select Code to Download

   Mytest.c:251:2: error: too few arguments to function 'statfs'

my @a;
@a = &Mytest::my_statfs("/blech"); # Test non-existent file/directory
ok( scalar(@a) == 1 && $a[0] == 2 );
@a = &Mytest::my_statfs("/");      # Test existing file/directory
is ( scalar(@a), 7 );

#include <sys/vfs.h>
    ...
...
        } else {
                XPUSHs(sv_2mortal(newSVnv(errno)));
        }

XS_EUPXS(XS_Mytest_statfs)
{
...
    }
    XSRETURN_EMPTY;
}