close(FP);
foreach my $jobid (keys %to_check) {
if (!$seen{$jobid}) {
- print "ERROR: in $f, $jobid is still present in the 2nd 'list jobs'\n";
+ print "******* listing of $f *********\n"
system("cat $f");
+ print "******* end listing of $f *********\n"
+ print "ERROR: in $f, $jobid is still present in the 2nd 'list jobs'\n";
exit 1;
}
}