diff options
author | Eric Wong <e@80x24.org> | 2021-11-09 00:20:50 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-11-09 00:43:37 +0000 |
commit | f349c77a421ef1082eb0b22e8f71304df610fa6b (patch) | |
tree | 460bb3bd35e1b9f057c90b11627fd2e2b5c6110f /Documentation | |
parent | 666dde69a3f64456321b7c701070712d6b85e359 (diff) | |
download | public-inbox-f349c77a421ef1082eb0b22e8f71304df610fa6b.tar.gz |
Text versions of manpages do not need to be generated for normal installations, they're only used for generating HTML and our amazing, award-winning homepage. We'll also rely on touch(1) instead of Perl utime to benefit users w/o git-set-file-times in txt2pre. Perl numeric values cannot represent nanosecond resolution accurately even with Time::HiRes; which causes nanosecond-aware make(1) implementations to repeatedly rebuild.
Diffstat (limited to 'Documentation')
-rwxr-xr-x | Documentation/common.perl | 14 | ||||
-rwxr-xr-x | Documentation/txt2pre | 6 |
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); -} |