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 /win32 | |
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 'win32')
-rw-r--r-- | win32/config.gc | 2 | ||||
-rw-r--r-- | win32/config.vc | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/win32/config.gc b/win32/config.gc index 25fe7f0549..80e73ba91c 100644 --- a/win32/config.gc +++ b/win32/config.gc @@ -1073,6 +1073,8 @@ srand48_r_proto='0' srandom_r_proto='0' src='' ssizetype='int' +st_dev_sign='1' +st_dev_size='4' st_ino_sign='1' st_ino_size='4' startperl='#!perl' diff --git a/win32/config.vc b/win32/config.vc index dbc8967bd6..f01ad8a6bd 100644 --- a/win32/config.vc +++ b/win32/config.vc @@ -1072,6 +1072,8 @@ srand48_r_proto='0' srandom_r_proto='0' src='' ssizetype='int' +st_dev_sign='1' +st_dev_size='4' st_ino_sign='1' st_ino_size='4' startperl='#!perl' |