From: Phil Pennock Date: Mon, 9 Apr 2018 03:46:26 +0000 (-0400) Subject: Better(?!?) fallback for stat: Perl X-Git-Tag: exim-4_91~13 X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=e5c155710bc95053e6e4b3845b79eb8fc281f769;p=exim.git Better(?!?) fallback for stat: Perl We use Perl extensively in other scripts. *sigh* --- diff --git a/src/util/renew-opendmarc-tlds.sh b/src/util/renew-opendmarc-tlds.sh index 2ce937699..9967018e2 100755 --- a/src/util/renew-opendmarc-tlds.sh +++ b/src/util/renew-opendmarc-tlds.sh @@ -24,7 +24,8 @@ # This should be "pretty portable"; the only things it depends upon are: # * a POSIX shell which additionally implements 'local' (dash works) # * the 'curl' command; change the fetch_candidate() function to replace that -# * the 'stat' command, to get the size of a file; change size_of() if need be +# * the 'stat' command, to get the size of a file; else Perl +# + change size_of() if need be; it's defined per-OS # * the 'hexdump' command and /dev/urandom existing # + used when invoked with 'cron', to avoid retrieving on a minute boundary # and contending with many other automated systems. @@ -84,8 +85,10 @@ case $(uname -s) in Linux) size_of() { stat -c %s "$1"; } ;; -*) # optimism? - size_of() { stat -c %s "$1"; } +*) + # why do we live in a world where Perl is the safe portable solution + # to getting the size of a file? + size_of() { perl -le 'print((stat($ARGV[0]))[7])' -- "$1"; } ;; esac