diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-12-07 13:11:56 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-12-07 18:47:16 -0500 |
| commit | 5306a04c0e61b1e841a5e59a2548ecbfb0c6db77 (patch) | |
| tree | 187927dbb56063d27a85cf5b4bc877a0d7b72f56 /ext/POSIX | |
| parent | bba4f5ffdbd68e12b25880a2cdb8f8e55e08595d (diff) | |
| download | perl-5306a04c0e61b1e841a5e59a2548ecbfb0c6db77.tar.gz | |
Make it explicit that truncation is fine.
Diffstat (limited to 'ext/POSIX')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 9f30dc120e..48caf9e0ae 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -803,7 +803,7 @@ static NV my_tgamma(NV x) if (x < 1.0) y += 1.0; else { - n = Perl_floor(y) - 1; + n = (int)Perl_floor(y) - 1; y -= n; } z = y - 1; |