Kaydet (Commit) 0847fd63 authored tarafından Thomas Collerton's avatar Thomas Collerton Kaydeden (comit) Tor Lillqvist

Improvement to fdo#46565

üst ab6273ec
...@@ -146,7 +146,12 @@ if (defined $ENV{NOCONFIGURE}) { ...@@ -146,7 +146,12 @@ if (defined $ENV{NOCONFIGURE}) {
if (scalar(@cmdline_args) > 0) { if (scalar(@cmdline_args) > 0) {
# if there's already an autogen.lastrun, make a backup first # if there's already an autogen.lastrun, make a backup first
if (-e "autogen.lastrun") { if (-e "autogen.lastrun") {
system("cp autogen.lastrun autogen.lastrun.bak"); open (my $fh, "autogen.lastrun") || warn "can't open autogen.lastrun. \n";
open (BAK, ">autogen.lastrun.bak") || warn "can't create backup file. \n";
while (<$fh>) {
print BAK;
}
close (BAK) && close ($fh);
} }
# print "writing args to autogen.lastrun\n"; # print "writing args to autogen.lastrun\n";
my $fh; my $fh;
...@@ -159,7 +164,8 @@ if (defined $ENV{NOCONFIGURE}) { ...@@ -159,7 +164,8 @@ if (defined $ENV{NOCONFIGURE}) {
} }
elsif ( ! -e "autogen.lastrun") elsif ( ! -e "autogen.lastrun")
{ {
system("touch autogen.lastrun"); open (my $fh, ">autogen.lastrun") || die "can't create autogen.lastrun";
close ($fh);
} }
print "running ./configure with '" . join ("' '", @args), "'\n"; print "running ./configure with '" . join ("' '", @args), "'\n";
system ("./configure", @args) && die "Error running configure"; system ("./configure", @args) && die "Error running configure";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment