From: Heiko Schlittermann (HS12-RIPE) Date: Wed, 28 Jun 2017 21:59:30 +0000 (+0200) Subject: Cleanup X-Git-Url: https://git.exim.org/buildfarm-client.git/commitdiff_plain/5e7717c8bfb3c94d191403c9bf4fb61ac755b5fd?hp=cc554edeb2cd2d5690eab24af233e741d47692d0 Cleanup --- diff --git a/EximBuild/WebTxn.pm b/EximBuild/WebTxn.pm index 455cd45..27c9cbe 100644 --- 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"; - my $sig= sha1_hex($content,$secret); + my $sig = sha1_hex($content,$secret); $content .= "&frozen_sconf=$frozen_sconf"; diff --git a/run_branches b/run_branches index 1ef72e5..e5194e1 100755 --- 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 - # 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"; @@ -140,8 +140,8 @@ elsif ($EximBuild::conf{branches_to_build} =~ /^(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 @@ -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 - # 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?). - system("perl",@args); + system(perl => @args); } sub branch_last_sort