projects / platform / upstream / perl.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 0c96a22) | patch
Convert Fcntl::{S_ISREG,S_ISDIR} to XS.
authorNicholas Clark <nick@ccl4.org>
Mon, 18 Oct 2010 14:01:00 +0000 (16:01 +0200)
committerNicholas Clark <nick@ccl4.org>
Mon, 18 Oct 2010 17:32:26 +0000 (19:32 +0200)
commitefe77345f79553ebc2eff1978e461a89d4448f00
tree661937808dfc0267c3c2910ed519410b3063e20etree | snapshot
parent0c96a22802acb568889a21eca98ad406b17f4740commit | diff
Convert Fcntl::{S_ISREG,S_ISDIR} to XS.

I estimate that this saves 294 bytes in Perl space (per thread, or per-process
if memory pages become unshared after forking), but costs only 232 bytes in the
shared object (should always remain shared between threads and processes).

Oh, and it's XS code, and avoids 2 Perl subroutine calls.
ext/Fcntl/Fcntl.pm diff | blob | history
ext/Fcntl/Fcntl.xs diff | blob | history
ext/Fcntl/t/mode.t diff | blob | history
Domain: System / Base;