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