--- 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);
}
}
}