diff-out (2929:f986dc04e25f) diff-out (3095:b11f671d6e05)
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;

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

393 {
394# print "\t$stat\n";
395 printf " %-50s ", $stat;
396 print "$$newhash{$stat}\n";
397 }
398}
399
400cleanup();
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;

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

393 {
394# print "\t$stat\n";
395 printf " %-50s ", $stat;
396 print "$$newhash{$stat}\n";
397 }
398}
399
400cleanup();
401# Exit code is 0 if no stats error, 1 otherwise
402$status = ($max_err_mag == 0.0) ? 0 : 1;
401# Exit code is 0 if some stats found & no stats error, 1 otherwise
402$status = ($#key_stats >= 0 && $max_err_mag == 0.0) ? 0 : 1;
403exit $status;
404
405sub cleanup
406{
407 unlink($refheader) if ($refheader);
408 unlink($newheader) if ($newheader);
409}
403exit $status;
404
405sub cleanup
406{
407 unlink($refheader) if ($refheader);
408 unlink($newheader) if ($newheader);
409}