summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-11-02 20:59:52 +0000
committerNicholas Clark <nick@ccl4.org>2005-11-02 20:59:52 +0000
commit1444765efaefee475386d81c393f3e679a455714 (patch)
tree085216fc6a0c1db1f4e7757ada983e7e81bb4a9b /pp_sys.c
parent17ad201a5d2de952269cf4eeb85881a49a9c3867 (diff)
downloadperl-1444765efaefee475386d81c393f3e679a455714.tar.gz
Move the conditonal compiles that report absence of kill and chown
from pp_kill() and pp_chown() into apply(). p4raw-id: //depot/perl@25963
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c8
1 files changed, 0 insertions, 8 deletions
diff --git a/pp_sys.c b/pp_sys.c
index d932c2f837..52a2839638 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3455,16 +3455,12 @@ PP(pp_chdir)
PP(pp_chown)
{
-#ifdef HAS_CHOWN
dSP; dMARK; dTARGET;
I32 value = (I32)apply(PL_op->op_type, MARK, SP);
SP = MARK;
PUSHi(value);
RETURN;
-#else
- DIE(aTHX_ PL_no_func, "chown");
-#endif
}
PP(pp_chroot)
@@ -4216,16 +4212,12 @@ PP(pp_exec)
PP(pp_kill)
{
-#ifdef HAS_KILL
dSP; dMARK; dTARGET;
I32 value;
value = (I32)apply(PL_op->op_type, MARK, SP);
SP = MARK;
PUSHi(value);
RETURN;
-#else
- DIE(aTHX_ PL_no_func, "kill");
-#endif
}
PP(pp_getppid)