luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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 0143f7662e
commit f10b2c8b07
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/bin/modelQaTestRoutines.pm
View File

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