diff-out (8838:6a859084ee92) diff-out (12142:f6ccdb328a23)
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();
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;
364# Exit codes:
365# 0 if all stats are found (with no extras) & no stats error
366# 1 if there are additional stats, but no stat errors
367# 2 otherwise
368$no_hard_errors = $missing_stats == 0 && $max_err_mag == 0.0;
369$status = $no_hard_errors ? ($added_stats == 0 ? 0 : 1) : 2;
366exit $status;
367
368sub cleanup
369{
370 unlink($refheader) if ($refheader);
371 unlink($newheader) if ($newheader);
372}
370exit $status;
371
372sub cleanup
373{
374 unlink($refheader) if ($refheader);
375 unlink($newheader) if ($newheader);
376}