diff options
author | David Mitchell <davem@iabyn.com> | 2013-11-12 15:51:21 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2013-11-13 10:38:40 +0000 |
commit | 03acb64848c7cc3a02259a87b82a11a401c46810 (patch) | |
tree | 1c3044ed4f9eb34769efadaef28b3cdf76323727 /perlio.c | |
parent | c835650ead1b96c706212d7e6d95da86cc9e8fcb (diff) | |
download | perl-03acb64848c7cc3a02259a87b82a11a401c46810.tar.gz |
silence some compiler warnings
Actually, most of this commit is adding (void) to various function returns
where we know its ok to ignore the return value. This doesn't actually
silence the -Wunused-result warning (thanks a bundle gcc), but at least
it marks our intentions.
Diffstat (limited to 'perlio.c')
-rw-r--r-- | perlio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -463,7 +463,7 @@ PerlIO_debug(const char *fmt, ...) char buffer[1024]; const STRLEN len1 = my_snprintf(buffer, sizeof(buffer), "%.40s:%" IVdf " ", s ? s : "(none)", (IV) CopLINE(PL_curcop)); const STRLEN len2 = my_vsnprintf(buffer + len1, sizeof(buffer) - len1, fmt, ap); - PerlLIO_write(PL_perlio_debug_fd, buffer, len1 + len2); + (void)PerlLIO_write(PL_perlio_debug_fd, buffer, len1 + len2); #else const char *s = CopFILE(PL_curcop); STRLEN len; @@ -472,7 +472,7 @@ PerlIO_debug(const char *fmt, ...) Perl_sv_vcatpvf(aTHX_ sv, fmt, &ap); s = SvPV_const(sv, len); - PerlLIO_write(PL_perlio_debug_fd, s, len); + (void)PerlLIO_write(PL_perlio_debug_fd, s, len); SvREFCNT_dec(sv); #endif } |