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()?)
This commit is contained in:
rlar 2017-07-27 18:25:22 +02:00
parent afe027f8de
commit d3b5d5c275
1 changed files with 2 additions and 2 deletions

View File

@ -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) {