From ad92ca8f24762ba6c332b8e5102a86159014291f Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Sun, 15 Jan 2012 16:46:12 +0000
Subject: [PATCH] perl, defined(%hash) is depreciated

---
 ChangeLog                        | 7 ++++++-
 tests/bin/modelQaTestRoutines.pm | 6 +-----
 tests/bin/runQaTests.pl          | 4 ++--
 3 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 245ffc99c..2930f0ee9 100644
--- a/ChangeLog
+++ b/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
diff --git a/tests/bin/modelQaTestRoutines.pm b/tests/bin/modelQaTestRoutines.pm
index e23b28989..035ddc22d 100644
--- a/tests/bin/modelQaTestRoutines.pm
+++ b/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) {
diff --git a/tests/bin/runQaTests.pl b/tests/bin/runQaTests.pl
index b303cfcbd..d03276aee 100755
--- a/tests/bin/runQaTests.pl
+++ b/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) {