1#!/usr/bin/perl
2# Copyright (c) 2001-2005 The Regents of The University of Michigan
3# All rights reserved.
4#
5# Redistribution and use in source and binary forms, with or without
6# modification, are permitted provided that the following conditions are
7# met: redistributions of source code must retain the above copyright
8# notice, this list of conditions and the following disclaimer;

--- 347 unchanged lines hidden (view full) ---

356 {
357# print "\t$stat\n";
358 printf " %-50s ", $stat;
359 print "$$newhash{$stat}\n";
360 }
361}
362
363cleanup();
364# Exit code is 0 if all stats are found (with no extras) & no stats error, 1 otherwise
365$status = ($missing_stats == 0 && $added_stats == 0 && $max_err_mag == 0.0) ? 0 : 1;
366exit $status;
367
368sub cleanup
369{
370 unlink($refheader) if ($refheader);
371 unlink($newheader) if ($newheader);
372}