uh_parser/releaseables.pm
changeset 204 604012c39141
parent 201 2c2dbe93b84b
child 236 08436a227940
--- a/uh_parser/releaseables.pm	Wed Mar 24 17:04:41 2010 +0000
+++ b/uh_parser/releaseables.pm	Wed Mar 24 17:17:32 2010 +0000
@@ -236,7 +236,6 @@
 			
 			print "Writing info file $filename\n" if (!-f$filename);
 			open(FILE, ">>$filename");
-			open(MISSING, ">>$filenamemissing");
 			
 			for my $filetype (keys %{$whatlog_info->{$bldinf}->{$config}})
 			{
@@ -247,13 +246,13 @@
 					
 					if($::missing && !-f $file)
 					{
-					   print MISSING $file."\n";
-                    }
+            open(MISSING, ">>$filenamemissing");
+            print MISSING $file."\n";
+            close(MISSING);
+          }
 				}
 			}
-			close(FILE);						
-			close(MISSING) if ($::missing);
-			
+			close(FILE);
 		}
 	}
 }