From cacaabe62358fc359ab840c0e8cd52677e41d13e Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Thu, 2 Sep 2010 13:43:16 -0500
Subject: [PATCH] listen to skipBackup upgrade option

---
 lib/WebGUI/Upgrade.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Upgrade.pm b/lib/WebGUI/Upgrade.pm
index 3d972da34..021edf062 100644
--- a/lib/WebGUI/Upgrade.pm
+++ b/lib/WebGUI/Upgrade.pm
@@ -244,7 +244,9 @@ sub upgradeSite {
     for my $step ( @steps ) {
         $i++;
         print "Running upgrades for $step (step $i/@{[ scalar @steps ]}):\n";
-        $self->createBackup($configFile);
+        if ($self->createBackups) {
+            $self->createBackup($configFile);
+        }
         $self->runUpgradeStep($configFile, $step);
     }
 }