perl, defined(%hash) is depreciated

ChangeLog

@@ -1,7 +1,12 @@
+2012-01-15  Robert Larice
+ * tests/bin/modelQaTestRoutines.pm ,
+ * tests/bin/runQaTests.pl :
+  perl, defined(%hash) is depreciated
+
 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

tests/bin/modelQaTestRoutines.pm

@@ -198,11 +198,7 @@ sub processTestSpec {
     @main::Outputs=();
     @main::ModelParameters=();
     undef(%main::BiasFor);
-    if (defined(%main::isGeneralFloatingPin)) {
-        %main::isFloatingPin=%main::isGeneralFloatingPin;
-    } else {
-        undef(%main::isFloatingPin);
-    }
+    %main::isFloatingPin=%main::isGeneralFloatingPin;
     undef(%isAnalysisPin);
     undef(@main::Temperature);
     foreach (@Spec) {

tests/bin/runQaTests.pl

@@ -297,7 +297,7 @@ if ($reallyVerbose) {
     $flag="";
 }
 foreach $test (@Test) {
-    next if (defined(%doTest) && !$doTest{$test});
+    next if (!$doTest{$test});
 
     if ($verbose) {print "\n****** Running test ($simulatorName): $test"}
 
@@ -311,7 +311,7 @@ foreach $test (@Test) {
         } else {
             $refFile="$resultsDirectory/$test.standard";
         }
-        next if (defined(%doVariant) && !$doVariant{$variant});
+        next if (!$doVariant{$variant});
         $simFile="$resultsDirectory/$test.$variant";
         if ($outputDc) {
             if (($forceSimulation || ! -r $simFile) && !$onlyDoComparison) {