diff options
| author | Tony Cook <tony@develop-help.com> | 2021-07-09 10:22:40 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2021-09-01 10:59:44 +1000 |
| commit | 9b5699737a6b587546239d586832f420cf7f2dea (patch) | |
| tree | 37f4fec318866b00f20095ba66f60faa44788cd6 /configure.com | |
| parent | b852e1da77b497e086508451bebff00541073fb1 (diff) | |
| download | perl-9b5699737a6b587546239d586832f420cf7f2dea.tar.gz | |
detect struct stat.st_dev's size and signedness, and return it safely
On FreeBSD dev_t (and hence the st_dev member of struct stat) is an
unsigned 64-bit integer, and the previous simple PUSHi() corrupted
that.
A previous version of this reflected the st_ino code and implemented
our own number to string conversion, but a system with such a large
st_dev should be assumed to have inttypes.h, and an intmax_t which is
no smaller than st_dev.
The st_ino code could probably be changed similarly, but 64-bit inode
numbers are not a new thing, so it may be riskier.
Diffstat (limited to 'configure.com')
| -rw-r--r-- | configure.com | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/configure.com b/configure.com index 126a372e5b..b35e3144a1 100644 --- a/configure.com +++ b/configure.com @@ -6971,6 +6971,8 @@ $ WC "src='" + src + "'" $ WC "ssizetype='int'" $ WC "startperl=" + startperl ! This one's special--no enclosing single quotes $ WC "static_ext='" + static_ext + "'" +$ WC "st_dev_size='"4"'" +$ WC "st_dev_sign='1'" $ WC "st_ino_size='" + st_ino_size + "'" $ WC "st_ino_sign='1'" $ WC "stdchar='" + stdchar + "'" |