summaryrefslogtreecommitdiff
path: root/perlio.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2013-11-12 15:51:21 +0000
committerDavid Mitchell <davem@iabyn.com>2013-11-13 10:38:40 +0000
commit03acb64848c7cc3a02259a87b82a11a401c46810 (patch)
tree1c3044ed4f9eb34769efadaef28b3cdf76323727 /perlio.c
parentc835650ead1b96c706212d7e6d95da86cc9e8fcb (diff)
downloadperl-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.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/perlio.c b/perlio.c
index 279b52986c..60b6a596f0 100644
--- a/perlio.c
+++ b/perlio.c
@@ -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
}