From d3b5d5c2751a31cd3bf2fdef6f5f254b3df789e0 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Thu, 27 Jul 2017 18:25:22 +0200
Subject: [PATCH] partial revert commit "charge check added by Colin McAndrew"

which reintroduced deprecated perl syntax

> defined(@array) is deprecated ...
>   (Maybe you should just omit the defined()?)
---
 tests/bin/modelQaTestRoutines.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/bin/modelQaTestRoutines.pm b/tests/bin/modelQaTestRoutines.pm
index c734f9dba..a2cb855c5 100644
--- a/tests/bin/modelQaTestRoutines.pm
+++ b/tests/bin/modelQaTestRoutines.pm
@@ -138,7 +138,7 @@ sub processSetup {
             die("ERROR: floating pin $pin is not a specified device pin, stopped");
         }
     }
-    if (!defined(@main::DefaultTemperature)) {
+    unless (@main::DefaultTemperature) {
         @main::DefaultTemperature=(27);
     }
     foreach $temperature (@main::DefaultTemperature) {
@@ -475,7 +475,7 @@ sub processTestSpec {
         }
         die("ERROR: unknown test directive\n$_\nstopped");
     }
-    if (!defined(@main::Temperature)) {
+    unless (@main::Temperature) {
         @main::Temperature=@main::DefaultTemperature;
     }
     if (abs($main::outputDc+$main::outputAc+($main::outputNoise>0)-1) > 0.001) {