ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/Utilities/setarchitecture.pm

Comparing COMP/SCRAM/src/Utilities/setarchitecture.pm (file contents):
Revision 1.2 by williamc, Mon Mar 1 11:01:36 1999 UTC vs.
Revision 1.6 by williamc, Mon Aug 28 08:35:17 2000 UTC

#	Line 11 | Line 11 | require Exporter;
11		sub setarch {
12		$uname=`uname -a`;
13		($OSname, $hostname, $OSversion, @rest) = split / /, $uname;
14	+	#
15	+	# SunOS -
16	+	#
17	+	if ( $OSname=~SunOS ) {
18	+	$OSversion=~s/^(.\..)\..*/\1/; #Retain only the first two version digits
19	+	}
20	+	#
21	+	# Linux -
22	+	#
23	+	if ( $OSname=~Linux ) {
24	+	$OSversion=~s/^(.\..)\..*/\1/; #Retain only the first two version digits
25	+	}
26	+
27		# simply set to OS type and version
28	+	if ( ! defined $ENV{SCRAM_ARCH} ) {
29		$ENV{SCRAM_ARCH}="${OSname}__${OSversion}";
30	<	print "Setting Architecture to $ENV{SCRAM_ARCH}\n";
30	>	}
31	>	#print "Setting Architecture to $ENV{SCRAM_ARCH}\n";
32		}

Diff Legend

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