From e4c0c75a200b5d0865555e0094050c4eadc2c537 Mon Sep 17 00:00:00 2001
From: Jeff Squyres <jsquyres@cisco.com>
Date: Wed, 25 Aug 2004 11:02:39 +0000
Subject: [PATCH] - Fix an infinite loop (oops, forgot ++$i) - Remove debugging
 output - Minor re-ordering of e-mail report

This commit was SVN r2293.
---
 contrib/nightly/build_tarball.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/contrib/nightly/build_tarball.pl b/contrib/nightly/build_tarball.pl
index 2894feffd6..f6cb220521 100755
--- a/contrib/nightly/build_tarball.pl
+++ b/contrib/nightly/build_tarball.pl
@@ -83,7 +83,6 @@ sub test_abort {
 sub do_command {
     my ($merge_output, $cmd) = @_;
 
-    print "*** Running command: $cmd\n" if ($debug);
     pipe OUTread, OUTwrite;
     pipe ERRread, ERRwrite
         if (!$merge_output);
@@ -226,6 +225,7 @@ sub find_program {
         if ($status == 0) {
             return $names[$i];
         }
+        ++$i;
     }
     return undef;
 }
@@ -537,6 +537,7 @@ if ($url_arg) {
         if (! -f $latest_name);
     $version = `cat $latest_name`;
     chomp($version);
+    push(@email_output, "Snapshot: $version\n\n");
     
     # see if we need to download the tarball
     $tarball_name = "openmpi-$version.tar.gz";
@@ -604,8 +605,8 @@ WARNING: checksums.  Proceeding anyway...\n\n");
         if (! -r $tarball_name);
     $version = $tarball_name;
     $version =~ s/.*openmpi-(.+).tar.gz/$1/;
+    push(@email_output, "Snapshot: $version\n\n");
 } 
-push(@email_output, "Snapshot: $version\n\n");
 
 # Make a root for this build to play in (scratch_root_arg is absolute, so
 # root will be absolute)