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.1 by williamc, Mon Mar 1 10:36:21 1999 UTC vs.
Revision 1.3 by williamc, Thu Mar 18 10:32:04 1999 UTC

#	Line 1 | Line 1
1	–	#!/usr/local/bin/perl5
2	–	#
1		# simply set the architecture variable based on uname
2		#
3
4		package setarchitecture;
5	+	require 5.001;
6		require Exporter;
7		@ISA = qw(Exporter);
8		@EXPORT = qw(setarch);
#	Line 12 | 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		# simply set to OS type and version
21		$ENV{SCRAM_ARCH}="${OSname}__${OSversion}";
22		print "Setting Architecture to $ENV{SCRAM_ARCH}\n";

Diff Legend

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