Index: trunk/ippScripts/scripts/make_burntool_pcontrol.pl
===================================================================
--- trunk/ippScripts/scripts/make_burntool_pcontrol.pl	(revision 27865)
+++ trunk/ippScripts/scripts/make_burntool_pcontrol.pl	(revision 27938)
@@ -322,6 +322,10 @@
     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}/)&&