Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!uwm.edu!ux1.cso.uiuc.edu!news.iastate.edu!sharkey!rjf001!rjf001.uucp!freedman
From: freedman@rjf001.uucp (Richard J. Freedman)
Newsgroups: comp.lang.perl
Subject: Problem with perl4
Message-ID: <9934@rjf001.UUCP>
Date: 26 Mar 91 01:43:37 GMT
Sender: freedman@rjf001.UUCP
Organization: Freedman and Co.
Lines: 28

When I run the following program with perl4 


#!./perl
$| = 1;				# flush stdout

if (system "/bin/sh -c true") {print "not ok \n";} else {print "ok 3\n";}
if (system "/bin/csh -c true") {print "not ok \n";} else {print "ok 4\n";}
if (system "true") {print "not ok 5\n";} else {print "ok 5\n";}
if (system "false") {print "not ok 6\n";} else {print "ok 6\n";}
if (0) {print "not ok 7\n";} else {print "ok 7\n";}
if (1) {print "not ok 8\n";} else {print "ok 8\n";}

I get the following:

ok 3
ok 4
not ok 5
not ok 6
ok 7
not ok 8

Clearly, the "not ok 5",  is not ok.

Does anyone have a suggestion as to what is amiss?  When I run perl3.44
I get the correct result.

Thanks,  Dick