Changeset 10398 for trunk/ippScripts/scripts/phase0_imfile.pl

Timestamp:

Dec 1, 2006, 1:12:34 PM (19 years ago)

Author:

Paul Price

Message:

Adding some checking.

File:

• trunk/ippScripts/scripts/phase0_imfile.pl (modified) (2 diffs)

trunk/ippScripts/scripts/phase0_imfile.pl

@@ -120 +120 @@
     }
     
-    push @command, P0TOOL_BG_MEAN(), $stats->bg_mean(), P0TOOL_BG_STDEV();
+    push @command, P0TOOL_BG_MEAN();
+    if (defined $stats->bg_mean()) {
+        push @command, $stats->bg_mean();
+    } else {
+        push @command, "NAN";
+    }
+    push @command, P0TOOL_BG_STDEV();
     if (defined($stats->bg_stdev())) {
         push @command, $stats->bg_stdev();
@@ -127 +133 @@
         push @command, 0;
     }
-    push @command,  P0TOOL_BG_MEAN_STDEV(), $stats->bg_mean_stdev();
+    push @command,  P0TOOL_BG_MEAN_STDEV();
+    if (defined $stats->bg_mean_stdev()) {
+        push @command, $stats->bg_mean_stdev();
+    } else {
+        push @command, "NAN";
+    }
  
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =