summaryrefslogtreecommitdiff
path: root/win32
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2021-07-09 10:22:40 +1000
committerTony Cook <tony@develop-help.com>2021-09-01 10:59:44 +1000
commit9b5699737a6b587546239d586832f420cf7f2dea (patch)
tree37f4fec318866b00f20095ba66f60faa44788cd6 /win32
parentb852e1da77b497e086508451bebff00541073fb1 (diff)
downloadperl-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.gc2
-rw-r--r--win32/config.vc2
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'