1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Description: Fix invalid integer size for some 32bits perl builds.
Author: Rob <sisyphus@cpan.org>
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=80379
Origin: https://rt.cpan.org/Ticket/Attachment/1188953/627182/
--- a/netcdf.pd
+++ b/netcdf.pd
@@ -1013,7 +1013,10 @@ use Fcntl; # importing constants O_CREAT
use constant DEBUG => 0;
EOPM
-if ($Config{'ivsize'} == 8) { pp_addpm ('
+my $SIZE = $Config{'sizetype'} eq 'size_t'
+ ? $Config{'sizesize'}
+ : $Config{'ivsize'};
+if ($SIZE == 8) { pp_addpm ('
use constant PACKTYPE => "Q*";
');
} else { pp_addpm ('
|
