From 39d026a11fc67bc45fc974fe8eab04ef9499fa31 Mon Sep 17 00:00:00 2001
From: Thomas Collerton <tom.coll91@gmail.com>
Date: Wed, 29 Feb 2012 11:50:02 +0100
Subject: fdo#46565: perl / autogen.sh should backup autogen.lastrun

---
 autogen.sh | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'autogen.sh')

diff --git a/autogen.sh b/autogen.sh
index d41ccdd91928..2133d075800e 100755
--- a/autogen.sh
+++ b/autogen.sh
@@ -144,6 +144,10 @@ if (defined $ENV{NOCONFIGURE}) {
     # Save autogen.lastrun only if we did get some arguments on the command-line
     if (@ARGV) {
         if (scalar(@cmdline_args) > 0) {
+            # if there's already an autogen.lastrun, make a backup first
+            if (-e "autogen.lastrun") {
+                system("cp autogen.lastrun autogen.lastrun.bak");
+            }
             # print "writing args to autogen.lastrun\n";
             my $fh;
             open ($fh, ">autogen.lastrun") || die "can't open autogen.lastrun: $!";
-- 
cgit