Changeset 27938 for trunk/ippScripts/scripts/make_burntool_pcontrol.pl

Timestamp:

May 12, 2010, 3:45:51 PM (16 years ago)

Author:

watersc1

Message:

I introduced a bug that killed burntool processing. This should resolve that bug.

File:

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

trunk/ippScripts/scripts/make_burntool_pcontrol.pl

@@ -322 +322 @@
     my ($exp_type,$obs_mode,$object,$comment) = @_;
     my $return_value = 0;
+    unless($object) {
+        $object = '';
+    }
     if ($exp_type eq 'OBJECT') {
         foreach my $target (@target_list) {
+#           print STDERR "$target $obsmode_list{$target} $exp_type $obs_mode $object $comment\n";
             if (($obs_mode =~ /$obsmode_list{$target}/)&&
                 ($object   =~ /$object_list{$target}/)&&