X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=Documentation%2Fcommon.perl;h=3a6617c474304ab598ac85964be00f27861aeef3;hp=5fdbe8da055efd13f6a8d41cf54a5278ebf85c4c;hb=f349c77a421ef1082eb0b22e8f71304df610fa6b;hpb=666dde69a3f64456321b7c701070712d6b85e359

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 {