# Check if auto-update is wanted and possible
eval {
- if (not exists $EximBuild::Conf{auto_update} or $EximBuild::Conf{auto_update})
+ if (not exists $EximBuild::conf{auto_update} or $EximBuild::conf{auto_update})
{
- my $remote = $EximBuild::Conf{auto_update} // 'origin';
+ my $remote = $EximBuild::conf{auto_update} // 'origin';
die "auto-update not possible: need write permissions in @{[cwd]}\n"
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";
/^(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
# 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