Changeset 17117

Timestamp:

Mar 24, 2008, 5:41:32 PM (18 years ago)

Author:

Paul Price

Message:

Adding check on normalisation.

File:

• trunk/ippScripts/scripts/detrend_norm_calc.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_norm_calc.pl

@@ -181 +181 @@
         my $normalisation = $normItem->{value}; # Normalisation for component
 
+        if ($normalisation == 0.0 or lc($normalisation) eq 'nan') {
+            warn("Class $className has bad normalisation: $normalisation");
+            exit($PS_EXIT_SYS_ERROR);
+        }
+
         my $command = $commandBase;
         $command .= " -class_id $className";