227:                            my $cvidPredessor = ccmexec_nodie("ccm query -type project -name $projectName -version $predessorVersion -f %cvid -u");
  DB<3> x @plist
0  undef
1  'PROTOSIM_PrototypeSpacecraftSimulation 13755 1'
  DB<4> n
main::UpdateSubProjects(subProjectSetup.pl:228):
228:                            chomp($cvidPredessor);
  DB<4> x @plist
0  undef
1  undef
  DB<5>
##</code><code>##

sub ccmexec_nodie
{
	my $command = $_[0];
	
	myprint(2,"\t\t\tccmexec: $command\n");
	
	my ($mystdin,$mystdout,$mystderr);
	my $pid = open3($mystdin,$mystdout,$mystderr,$command);
	
	my $myresult = "";
	while(<$mystdout>){
		$myresult = "$myresult$_";
	}
	
	return $myresult;
}


sub myprint{
	my $level = $_[0];
	my $string = $_[1];
	
	if($level <= 1){
		print $string;
	}		
}