Date: Thu, 12 Sep 1996 11:50:16 +1000 From: Bruce Evans <bde@zeta.org.au> To: current@freebsd.org, hackers@freebsd.org, mrcpu@cdsnet.net Subject: Re: -current and perl5.003? Message-ID: <199609120150.LAA19415@godzilla.zeta.org.au>
next in thread | raw e-mail | index | archive | help
>A box supped as of yesterday is not passing 1 test for perl5.003.
>
>The following fails:
>
>(op/exec)
>
>if ((system "/bin/sh -c 'exit 1'") != 256) { print "not "; }
>print "ok 5\n";
>
>
>
>It's got me. It passes just fine on everything supped before then, but
>nothing in the sup looked like it could have the remotest effect.
`exit 1' in a shell script now exits with status 0 :-(. Yesterday's
change obviously broke it.
Bruce
Index: main.c
===================================================================
RCS file: /a/ncvs/src/bin/sh/main.c,v
retrieving revision 1.6
retrieving revision 1.5
diff -c -2 -r1.6 -r1.5
*** main.c 1996/09/08 03:12:22 1.6
--- main.c 1996/09/01 10:20:38 1.5
***************
*** 340,350 ****
char **argv;
{
- extern int oexitstatus;
-
if (stoppedjobs())
return 0;
if (argc > 1)
exitstatus = number(argv[1]);
! exitshell(oexitstatus);
/*NOTREACHED*/
return 0;
--- 340,348 ----
char **argv;
{
if (stoppedjobs())
return 0;
if (argc > 1)
exitstatus = number(argv[1]);
! exitshell(exitstatus);
/*NOTREACHED*/
return 0;
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199609120150.LAA19415>