This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
188f97e
)
There is no SSize_t_size.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 25 Jun 2015 01:58:51 +0000
(21:58 -0400)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Sat, 27 Jun 2015 03:09:45 +0000
(23:09 -0400)
Coverity CID 104775.
Seemed to be the only one.
ext/PerlIO-scalar/scalar.xs
patch
|
blob
|
blame
|
history
diff --git
a/ext/PerlIO-scalar/scalar.xs
b/ext/PerlIO-scalar/scalar.xs
index
eec2de9
..
49bbff1
100644
(file)
--- a/
ext/PerlIO-scalar/scalar.xs
+++ b/
ext/PerlIO-scalar/scalar.xs
@@
-215,7
+215,7
@@
PerlIOScalar_write(pTHX_ PerlIO * f, const void *vbuf, Size_t count)
/* ensure we don't try to create ridiculously large
* SVs on small platforms
*/
-#if S
S
ize_t_size < Off_t_size
+#if Size_t_size < Off_t_size
if (s->posn > SSize_t_MAX) {
#ifdef EFBIG
SETERRNO(EFBIG, SS_BUFFEROVF);