# | Line 294 | Line 294 | sub spawnversion | |
---|---|---|
294 | $ENV{SCRAM_HOME}=$self->{scram_top}."/".$version; | |
295 | $ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src"; | |
296 | $self->verbose("Spawning SCRAM version $version"); | |
297 | < | #print "######### SCRAM version control: "; |
298 | < | #print "ARGS: ",@_,"\n\n"; |
297 | > | |
298 | my $rv=system("scram", @_)/256; | |
299 | exit $rv; | |
300 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |