src/Utilities/setarchitecture.pm

# simply set the architecture variable based on uname
#

package setarchitecture;
require 5.001;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(setarch);

# unix systems
sub setarch {
$uname=`uname -a`;
($OSname, $hostname, $OSversion, @rest) = split / /, $uname;
# simply set to OS type and version
$ENV{SCRAM_ARCH}="${OSname}__${OSversion}";
print "Setting Architecture to $ENV{SCRAM_ARCH}\n";
}
Revision:	1.2
Committed:	Mon Mar 1 11:01:36 1999 UTC (26 years, 2 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
Changes since 1.1:	+1 -2 lines
Log Message:	get rid of unessary shell invocation stuff in modules
#	Content
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);
9
10	# unix systems
11	sub setarch {
12	$uname=`uname -a`;
13	($OSname, $hostname, $OSversion, @rest) = split / /, $uname;
14	# simply set to OS type and version
15	$ENV{SCRAM_ARCH}="${OSname}__${OSversion}";
16	print "Setting Architecture to $ENV{SCRAM_ARCH}\n";
17	}