rename
This commit is contained in:
parent
8aa7535cff
commit
8b65958b90
|
|
@ -750,7 +750,7 @@ sub platform {
|
|||
|
||||
use Config;
|
||||
my($osName,$osVer,$archName)=($modelQa::Config{osname},$modelQa::Config{osvers},$modelQa::Config{archname});
|
||||
my($rv);
|
||||
my($platform);
|
||||
|
||||
if ($osName !~ /win/i) {
|
||||
open(UNAME,"uname -p|") or die("ERROR: cannot determine processore and OS information, stopped");
|
||||
|
|
@ -761,9 +761,9 @@ sub platform {
|
|||
open(UNAME,"uname -s|");chomp($osName=<UNAME>);close(UNAME);
|
||||
open(UNAME,"uname -r|");chomp($osVer =<UNAME>);close(UNAME);
|
||||
}
|
||||
$rv = "${archName}_${osName}_${osVer}";
|
||||
$rv =~ s/\s+/-/g;
|
||||
return($rv);
|
||||
$platform = "${archName}_${osName}_${osVer}";
|
||||
$platform =~ s/\s+/-/g;
|
||||
return($platform);
|
||||
}
|
||||
|
||||
1;
|
||||
|
|
|
|||
Loading…
Reference in New Issue