Touch generated files if do-backs was used

diff --git a/zk b/zk
index 5179aa3b12e5abf80403c267065792a8032caec4..7dfd1d6e6ddcfcfe46144c40fbbe79ddc070f80f 100755 (executable)
--- a/zk
+++ b/zk
@@ -332,7 +332,8 @@ sub genHTML {
         print $out "</table>\n";
     }
     @lnks = sort keys %{$backs{indexless $page}};
-    if ($doBacksForced or ($doBacks and $#lnks != -1)) {
+    my $backsWasGenerated = ($doBacksForced or ($doBacks and $#lnks != -1)) ? 1 : 0;
+    if ($backsWasGenerated) {
         print $out "<a id=\"backs\"></a><table border=1><caption>Backlinks</caption>\n";
         my $rel;
         foreach my $l (@lnks) {
@@ -344,6 +345,7 @@ sub genHTML {
         print $out "</table>\n";
     }
     print $out "</body></html>\n";
+    return $backsWasGenerated;
 }
 
 sub genIndex {
@@ -410,13 +412,16 @@ if ($ARGV[0] eq "dump") {
         close $fh;
         utime $now, $now, $fn;
     }
-    my @s;
     foreach my $pth (keys %mtimes) {
         open(my $fh, ">", "$ARGV[1]/$pth.html") or die "$!";
-        genHTML $fh, $pth;
+        my $backsWasGenerated = genHTML $fh, $pth;
         close $fh;
-        @s = stat($pth) or die "$!";
-        utime $s[9], $s[9], "$ARGV[1]/$pth.html";
+        my @s = stat($pth) or die "$!";
+        if ($backsWasGenerated) {
+            utime $now, $now, "$ARGV[1]/$pth.html";
+        } else {
+            utime $s[9], $s[9], "$ARGV[1]/$pth.html";
+        }
         copy $pth, "$ARGV[1]/$pth.txt" or die "$!";
         utime $s[9], $s[9], "$ARGV[1]/$pth.txt";
     }