in reply to Runing "regular" code with threaded perl

Your problem is you're not checking the return value of bjmsys(). Try: 
#bjmsys("xspec - ${tmp}.xcm", $v); 
bjmsys("xspec - ${tmp}.xcm", $v) == 0 or die ("bjmsys failed"); 

open(DAT, "${tmp}xsfit.dat") || die ("Could not open file!");

[download]
BTW, for a scientist, your analysis of the problem was decidedly unscientific! :-).

Replies are listed 'Best First'.
Re^2: Runing "regular" code with threaded perl
by cdarke (Prior) on Jul 11, 2008 at 07:41 UTC
    The return value from system is checked in the bjmsys subroutine depending on the value of the second parameter, $v.
    Can kingskot confirm that $v is being set to 1, at least for testing?
[reply]

In Section Seekers of Perl Wisdom