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

14 years ago · 6a96242e1f
2 changed files with 5 additions and 2 deletions
--- a/4
+++ b/4
@ -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
--- a/tests/bin/modelQaTestRoutines.pm
+++ b/tests/bin/modelQaTestRoutines.pm
@ -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);
 }