I've been folowing the discussion on my originals question and has stayed
quiet as I am a real perl novice , however the
reason I asked the original question was that the $? didn't seem to be
returning me a status value either.
Now I used Craig's test line and it does appear to return the status.
*** perl -e "use vmsish status; $pid=open(F, qq/|blechh/); waitpid($pid,0);
print qq/** $?**/;"
** 229520**
write sys$output f$message(229520)
%CLI-W-IVVERB, unrecognized command verb - check validity and spelling
However if I try my own code ( bwtest::spawn simply spawns the command
,puts the output to a file and returns the pid)
the first java class returns zero (0) as the VMS exit status and the 2nd
One (1)
use vmsish qw(status);
use bwtest;
$pid= bwtest::spawn("java \"demos.dynany.Server\"","t.log");
waitpid($pid,0);
print "** $?**\n";
$pid= bwtest::spawn("java \"demos.typetest.Client\"","t.log");
waitpid($pid,0);
print "** $?**\n";
$ perl t9.pl
Command : java "demos.dynany.Server"
Output : t.log
** 0**
Command : java "demos.typetest.Client"
Output : t.log
** 0**
Regards
Tony O'Callaghan
Software Consultant
Storm Technology Ltd.
Phone: 091-509773
Fax: 091-509770
Mobile: 087-2227490
Email: [EMAIL PROTECTED]
http://www.storm.ie
