Select Code to Download

void
S_IFMT(...)
...
        dXSTARG;
    PPCODE:
        PUSHu(items ? (SvUV(ST(0)) & S_IFMT) : S_IFMT);

#!/usr/bin/env perl

...
00004000
00008000
0000f000

#!/usr/bin/env perl

...
S_ISLNK():0000000000000000
---