Fix uninitialized perl variable error output
authorTodd Lyons <tlyons@exim.org>
Mon, 3 Nov 2014 21:18:58 +0000 (13:18 -0800)
committerTodd Lyons <tlyons@exim.org>
Mon, 3 Nov 2014 21:18:58 +0000 (13:18 -0800)
run_build.pl

index 9e68d8d05a9cae8591af780380d07aa3d30e955c..40a63d61eefe1de14e72bc833f7e5a2cfc24de71 100755 (executable)
@@ -562,8 +562,10 @@ elsif (!$from_source)
     $last_success_snap = find_last('success.snap');
     $forcerun = 1 unless (defined($last_run_snap));
 
     $last_success_snap = find_last('success.snap');
     $forcerun = 1 unless (defined($last_run_snap));
 
-    # If config file changed, force a rebuild
-    ($current_config) = (stat $orig_dir.'/'.$buildconf)[9];
+    # If config file changed, force a rebuild.  This assumes that the config
+    # file is in the CWD, which may not always be true, so handle it by
+    # adding 1 to the value of last_config, which will force the rebuild.
+    ($current_config) = (stat $orig_dir.'/'.$buildconf)[9] || ($last_config+1);
     if ($current_config > $last_config)
     {
       $last_status = 0;
     if ($current_config > $last_config)
     {
       $last_status = 0;