From owner-freebsd-sparc64@FreeBSD.ORG  Wed Jul 30 06:25:48 2003
Return-Path: <owner-freebsd-sparc64@FreeBSD.ORG>
Delivered-To: freebsd-sparc64@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id BF3EC37B401
	for <freebsd-sparc64@freebsd.org>;
	Wed, 30 Jul 2003 06:25:48 -0700 (PDT)
Received: from tts.orel.ru (tts.orel.ru [213.59.64.67])
	by mx1.FreeBSD.org (Postfix) with ESMTP id DD54443FB1
	for <freebsd-sparc64@freebsd.org>;
	Wed, 30 Jul 2003 06:25:43 -0700 (PDT)	(envelope-from bel@orel.ru)
Received: from orel.ru (lg.orel.ru [195.90.189.89])
	by tts.orel.ru (8.12.6/8.12.6/bel) with ESMTP id h6UDPe0A008334
	for <freebsd-sparc64@freebsd.org>; Wed, 30 Jul 2003 17:25:40 +0400
Message-ID: <3F27C756.6070201@orel.ru>
Date: Wed, 30 Jul 2003 17:25:42 +0400
From: Andrew Belashov <bel@orel.ru>
Organization: ORIS
User-Agent: Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.3) Gecko/20030411
X-Accept-Language: ru, en-us, en
MIME-Version: 1.0
To: freebsd-sparc64@freebsd.org
References: <3F210BF6.6070001@orel.ru> <20030725153258.GE10708@funkthat.com>
	<3F27A5DB.2050601@orel.ru>
In-Reply-To: <3F27A5DB.2050601@orel.ru>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Subject: fork&Perl BUG
X-BeenThere: freebsd-sparc64@freebsd.org
X-Mailman-Version: 2.1.1
Precedence: list
List-Id: Porting FreeBSD to the Sparc <freebsd-sparc64.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-sparc64>,
	<mailto:freebsd-sparc64-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-sparc64>
List-Post: <mailto:freebsd-sparc64@freebsd.org>
List-Help: <mailto:freebsd-sparc64-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-sparc64>,
	<mailto:freebsd-sparc64-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 30 Jul 2003 13:25:49 -0000

I modified Perl by adding sleep(10) in parent after fork():
---------------------------------------------------------------------
--- pp_sys.c.orig       Fri Apr  6 08:38:46 2001
+++ pp_sys.c    Wed Jul 30 17:17:50 2003
@@ -3703,6 +3703,9 @@
         if ((tmpgv = gv_fetchpv("$", TRUE, SVt_PV)))
             sv_setiv(GvSV(tmpgv), (IV)PerlProc_getpid());
         hv_clear(PL_pidstatus); /* no kids, so don't wait for 'em */
+    } else {
+       /* PARENT */
+       sleep(10);
      }
      PUSHi(childpid);
      RETURN;
---------------------------------------------------------------------

and my test script working OK!!!
---------------------------------------------------------------------
(gdb) run perlbug.pl 80000
Starting program: /usr/ports/lang/perl5.debug/work/perl-5.6.1/perl 
perlbug.pl 80000
................................................................................
Main: sum = 39977.1619376211, cnt = 80000
Child working...
Child: sum = 39977.1619376211, cnt = 80000
Child exiting...
Child pid = 92042
Parent working...
Parent: sum = 39977.1619376211, cnt = 80000
Parent waiting a child...
Parent exiting...
---------------------------------------------------------------------

IMHO, it is bug in fork(2).