Cleanup

diff --git a/EximBuild/WebTxn.pm b/EximBuild/WebTxn.pm
index 455cd45c818de7f76797914ed0d4e0d5a10db46d..27c9cbe5f64eba5201e303d7b081e2e4a8f3befa 100644 (file)
--- a/EximBuild/WebTxn.pm
+++ b/EximBuild/WebTxn.pm
@@ -102,7 +102,7 @@ sub run_web_txn
       . "changed_since_success=$changed_since_success&"
       . 'branch=' . uri_escape($branch) . "&res=$status&stage=$stage&animal=$animal&ts=$ts"
       ."&log=$log_data&conf=$confsum";
       . "changed_since_success=$changed_since_success&"
       . 'branch=' . uri_escape($branch) . "&res=$status&stage=$stage&animal=$animal&ts=$ts"
       ."&log=$log_data&conf=$confsum";

-    my $sig= sha1_hex($content,$secret);
+    my $sig = sha1_hex($content,$secret);

 
     $content .= "&frozen_sconf=$frozen_sconf";
 
 
     $content .= "&frozen_sconf=$frozen_sconf";
 

diff --git a/run_branches b/run_branches
index 1ef72e544fed48d52646825e0f04ae0167c0b15b..e5194e1c42dcc1da4b56203821fcff97d21f189d 100755 (executable)
--- a/run_branches
+++ b/run_branches
@@ -87,7 +87,7 @@ eval {
            if not -w '.';
 
        # Get information about our remote and calculate the chance for a
            if not -w '.';
 
        # Get information about our remote and calculate the chance for a

-       # successfull auto-updat. Based on:
+       # successfull auto-update. Based on:

        # http://stackoverflow.com/questions/3258243/check-if-pull-needed-in-git
        system("git fetch $remote") == 0 or die "'git fetch $remote' failed\n";
        my ($upstream, $local, $base) = qx'git rev-parse ...@{upstream}' or die "'git rev-parse' failed\n";
        # http://stackoverflow.com/questions/3258243/check-if-pull-needed-in-git
        system("git fetch $remote") == 0 or die "'git fetch $remote' failed\n";
        my ($upstream, $local, $base) = qx'git rev-parse ...@{upstream}' or die "'git rev-parse' failed\n";


@@ -140,8 +140,8 @@ elsif ($EximBuild::conf{branches_to_build} =~
     /^(ALL|HEAD_PLUS_LATEST|HEAD_PLUS_LATEST2)$/ )
 {
 
     /^(ALL|HEAD_PLUS_LATEST|HEAD_PLUS_LATEST2)$/ )
 {
 

-    # Need to set the path here so we make sure we pick up the right perl.
-    # It has to be the perl that the build script would choose
+    # Need to set the path here so we make sure we pick up the right Perl.
+    # It has to be the Perl that the build script would choose

     # i.e. specially *not* the MinGW SDK perl that is invoked for the
     # build script, which means we need to put the path back the way it was
     # when we're done
     # i.e. specially *not* the MinGW SDK perl that is invoked for the
     # build script, which means we need to put the path back the way it was
     # when we're done


@@ -215,10 +215,10 @@ sub run_branch
     # Explicitly use perl from the path (and not this perl, so don't use $^X)
     # This script needs to run on Cygwin with non-cygwin perl if it's running
     # in tandem with AS/MinGW perl, since Cygwin perl doesn't honor locks
     # Explicitly use perl from the path (and not this perl, so don't use $^X)
     # This script needs to run on Cygwin with non-cygwin perl if it's running
     # in tandem with AS/MinGW perl, since Cygwin perl doesn't honor locks

-    # the samne way, and the global lock fails. But the build script needs
+    # the same way, and the global lock fails. But the build script needs

     # to run with the native perl, even on Cygwin, which it picks up from
     # the path. (Head exploding yet?).
     # to run with the native perl, even on Cygwin, which it picks up from
     # the path. (Head exploding yet?).

-    system("perl",@args);
+    system(perl => @args);

 }
 
 sub branch_last_sort
 }
 
 sub branch_last_sort