'/' removed from $platform (mingw/msys)

This commit is contained in:
h_vogt 2012-01-15 16:34:34 +00:00
parent 7ad22c41f4
commit 6a96242e1f
2 changed files with 5 additions and 2 deletions

View File

@ -1,3 +1,7 @@
2012-01-15 Holger Vogt
* tests\bin\modelQaTestRoutines.pm: $platform
should not contain '/' , removed in line 700
2012-01-13 Robert Larice
* src/spicelib/devices/hisimhv/.cvsignore :
add missing .cvsignore file

View File

@ -697,8 +697,7 @@ sub platform {
open(UNAME,"uname -r|");chomp($osVer =<UNAME>);close(UNAME);
}
$platform = "${archName}_${osName}_${osVer}";
$platform =~ s/\(//;
$platform =~ s/\)//;
$platform =~ s|[()/]||g;
return($platform);
}