2 files changed, 9 insertions, 11 deletions
diff --git a/Documentation/common.perl b/Documentation/common.perl
index 5fdbe8da..3a6617c4 100755
--- a/Documentation/common.perl
+++ b/Documentation/common.perl
@@ -34,11 +34,15 @@ L<http://4uok3hntl7oi7b4uf4rtfwefqeexfzil2w6kgk2jn5z2f764irre7byd.onion/meta/>
                          ^AUTO-GENERATED-SEARCH-TERMS-END\n
                          !search_terms()!emsx;
          $s =~ s/[ \t]+$//sgm;
-        next if $s eq $orig;
-        seek($fh, 0, SEEK_SET) or die "seek: $!";
-        truncate($fh, 0) or die "truncate: $!";
-        print $fh $s or die "print: $!";
-        close $fh or die "close: $!";
+        if ($s eq $orig) {
+                my $t = time;
+                utime($t, $t, $fh);
+        } else {
+                seek($fh, 0, SEEK_SET) or die "seek: $!";
+                truncate($fh, 0) or die "truncate: $!";
+                print $fh $s or die "print: $!";
+                close $fh or die "close: $!";
+        }
  }
  
  sub search_terms {
diff --git a/Documentation/txt2pre b/Documentation/txt2pre
index 04bc3b0e..3ecd9100 100755
--- a/Documentation/txt2pre
+++ b/Documentation/txt2pre
@@ -177,9 +177,3 @@ print '<html><head>',
    "<title>$title</title>",
    "</head><body><pre>",  $str , '</pre></body></html>';
  STDOUT->flush;
-
-# keep mtime on website consistent so clients can cache
-if (-f STDIN && -f STDOUT) {
-        my @st = stat(STDIN);
-        utime($st[8], $st[9], \*STDOUT);
-}