From 929a4907d56d33ad69150da8025e2267d4eeb613 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 8 May 2003 18:49:25 +0000 Subject: [PATCH] Suppress a few compilation warnings in pp_hot.c. p4raw-id: //depot/perl@19454 --- pp_hot.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/pp_hot.c b/pp_hot.c index 416eba5..926a1f8 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -795,7 +795,6 @@ PP(pp_rv2hv) { dSP; dTOPss; HV *hv; - I32 gimme = GIMME_V; if (SvROK(sv)) { wasref: @@ -1498,7 +1497,7 @@ Perl_do_readline(pTHX) /* undef TARG, and push that undefined value */ if (type != OP_RCATLINE) { SV_CHECK_THINKFIRST_COW_DROP(TARG); - SvOK_off(TARG); + (void)SvOK_off(TARG); } PUSHTARG; } @@ -1562,7 +1561,7 @@ Perl_do_readline(pTHX) if (gimme == G_SCALAR) { if (type != OP_RCATLINE) { SV_CHECK_THINKFIRST_COW_DROP(TARG); - SvOK_off(TARG); + (void)SvOK_off(TARG); } SPAGAIN; PUSHTARG; -- 2.7.4