--- a/RDI_Coords.pl
+++ b/RDI_Coords.pl
@@ -1,9 +1,9 @@
#======================================================================
# R D I _ C O O R D S . P L
# doc: Sun Jan 19 17:57:53 2003
-# dlm: Sat Jan 22 22:35:17 2011
+# dlm: Sun Jan 15 20:04:13 2012
# (c) 2003 A.M. Thurnherr
-# uE-Info: 262 0 NIL 0 0 72 2 2 4 NIL ofnI
+# uE-Info: 33 74 NIL 0 0 72 0 2 4 NIL ofnI
#======================================================================
# RDI Workhorse Coordinate Transformations
@@ -30,6 +30,7 @@
# Dec 23, 2010: - added &velBeamToBPInstrument
# Jan 22, 2011: - made velApplyHdgBias calculate sin/cos every time to allow
# per-ensemble corrections
+# Jan 15, 2012: - replaced defined(@...) by (@...) to get rid of warning
use strict;
use POSIX;
@@ -59,7 +60,7 @@
defined($v3) + defined($v4)
>= $RDI_Coords::minValidVels);
- unless (defined(@B2I)) {
+ unless (@B2I) {
# print(STDERR "RDI_Coords::minValidVels = $RDI_Coords::minValidVels\n");
my($a) = 1 / (2 * sin(rad($dta->{BEAM_ANGLE})));
my($b) = 1 / (4 * cos(rad($dta->{BEAM_ANGLE})));