summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-07-12 04:58:08 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-07-12 04:58:08 +0000
commit78ffc579fccea149ce13c268b422d661c9811f3a (patch)
tree0f1727e59320de878710561a51aa2059aa6fc4eb /perl.c
parentf38d7863e9c890f6e7b5e922b65b103f87ccdb42 (diff)
downloadperl-78ffc579fccea149ce13c268b422d661c9811f3a.tar.gz
Retract #11289.
p4raw-id: //depot/perl@11293
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl.c b/perl.c
index 91caf60884..25cdcd6e4b 100644
--- a/perl.c
+++ b/perl.c
@@ -61,7 +61,7 @@ static I32 read_e_script(pTHXo_ int idx, SV *buf_sv, int maxlen);
/* this is called in parent before the fork() */
void
-Perl_atfork_lock(pTHX)
+Perl_atfork_lock(void)
{
/* locks must be held in locking order (if any) */
#ifdef MYMALLOC
@@ -72,7 +72,7 @@ Perl_atfork_lock(pTHX)
/* this is called in both parent and child after the fork() */
void
-Perl_atfork_unlock(pTHX)
+Perl_atfork_unlock(void)
{
/* locks must be released in same order as in S_atfork_lock() */
#ifdef MYMALLOC