ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/Scram/ScramFunctions.pm

Comparing COMP/SCRAM/src/Scram/ScramFunctions.pm (file contents):
Revision 1.13 by sashby, Mon Jun 18 15:19:51 2001 UTC vs.
Revision 1.17 by sashby, Fri Nov 9 16:49:45 2001 UTC

#	Line 86 | Line 86 | sub setuptoolsinarea {
86		my $self=shift;
87		my $area=shift;
88
89	<	# -- initialise
89	>	# -- initialise
90	>	print "Initialising setup procedure......","\n";
91		$self->_allprojectinitsearcher();
92
93		# -- create a new toolbox object
#	Line 136 | Line 137 | sub satellite {
137		my $area=$relarea->satellite($installarea,$areaname);
138		$area->archname($self->arch());
139
139	–	# -- copy setup info - deprecated by toolbox copy method
140	–	#$relarea->copysetup($area->location());
141	–
140		# -- copy toolbox
141		my $rtb=$self->areatoolbox($relarea);
142		my $tb=$self->areatoolbox($area);
#	Line 267 | Line 265 | sub removeareafromDB
265
266		sub spawnversion
267		{
268	+	###############################################################
269	+	# spawnversion                                                #
270	+	###############################################################
271	+	# modified : Fri Aug 10 15:42:08 2001 / SFA                   #
272	+	# params   :                                                  #
273	+	#          :                                                  #
274	+	#          :                                                  #
275	+	#          :                                                  #
276	+	# function : Check for version of scram to run, and run it.   #
277	+	#          :                                                  #
278	+	#          :                                                  #
279	+	###############################################################
280	+
281		my $self=shift;
282		my $version=shift;
283		my $rv=0;
#	Line 283 | 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	+
298		my $rv=system("scram", @_)/256;
299		exit $rv;
300		}

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines