diff options
| author | David Mitchell <davem@iabyn.com> | 2013-11-13 16:48:11 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2013-11-13 17:38:43 +0000 |
| commit | 13142853235f9d75c2f0986e90edc8f913526b00 (patch) | |
| tree | 8cc888ffa1e6b1dd4cff13d550175bb2134fc6e9 /dist/IO | |
| parent | 03e4b83dd4717161d2b8ca65f1f26bc6336676c1 (diff) | |
| download | perl-13142853235f9d75c2f0986e90edc8f913526b00.tar.gz | |
IO.xs: fix compiler warning
PerlIO_unread() returns SSize_t, although from its sparse documentation
it doesn't seem that it would ever return a negative value. So cast away
the 'comparison between signed and unsigned integer' warning.
Diffstat (limited to 'dist/IO')
| -rw-r--r-- | dist/IO/IO.pm | 2 | ||||
| -rw-r--r-- | dist/IO/IO.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/dist/IO/IO.pm b/dist/IO/IO.pm index 21583f5329..6edf83c4a4 100644 --- a/dist/IO/IO.pm +++ b/dist/IO/IO.pm @@ -7,7 +7,7 @@ use Carp; use strict; use warnings; -our $VERSION = "1.29"; +our $VERSION = "1.30"; XSLoader::load 'IO', $VERSION; sub import { diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs index 5ae41aed2d..efb0ed6695 100644 --- a/dist/IO/IO.xs +++ b/dist/IO/IO.xs @@ -350,7 +350,7 @@ ungetc(handle, c) * above-Unicodes */ end = uvchr_to_utf8_flags(buf, v, 0); len = end - buf; - if (PerlIO_unread(handle, &buf, len) == len) + if ((Size_t)PerlIO_unread(handle, &buf, len) == len) XSRETURN_UV(v); else RETVAL = EOF; |