This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
There is no SSize_t_size.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 25 Jun 2015 01:58:51 +0000 (21:58 -0400)
committerJarkko 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

index eec2de9..49bbff1 100644 (file)
@@ -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 SSize_t_size < Off_t_size
+#if Size_t_size < Off_t_size
             if (s->posn > SSize_t_MAX) {
 #ifdef EFBIG
                 SETERRNO(EFBIG, SS_BUFFEROVF);