From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 26 Jul 1999 13:18:53 +0000 (+0000)
Subject: warnings identified by Borland compiler
X-Git-Tag: perl-5.6.0~1167
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/520c758a267ecaffc48416a901e0ba5e43b7a2d3

warnings identified by Borland compiler

p4raw-id: //depot/perl@3777
---

diff --git a/makedef.pl b/makedef.pl
index 50cbcbb..676d229 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -572,8 +572,8 @@ sub emit_symbol {
 sub output_symbol {
     my $symbol = shift;
     if ($PLATFORM eq 'win32') {
-	print "\t$symbol\n";
 	$symbol = "_$symbol" if $CCTYPE eq 'BORLAND';
+	print "\t$symbol\n";
 # XXX: binary compatibility between compilers is an exercise
 # in frustration :-(
 #        if ($CCTYPE eq "BORLAND") {
diff --git a/pp_ctl.c b/pp_ctl.c
index 80cd803..9514168 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2848,7 +2848,7 @@ PP(pp_require)
 				       save the gv to manage the lifespan of
 				       the pipe, but this didn't help. XXX */
 				    filter_child_proc = (GV *)arg;
-				    SvREFCNT_inc(filter_child_proc);
+				    (void)SvREFCNT_inc(filter_child_proc);
 				}
 				else {
 				    if (IoOFP(io) && IoOFP(io) != IoIFP(io)) {
@@ -2866,11 +2866,11 @@ PP(pp_require)
 
 			if (SvROK(arg) && SvTYPE(SvRV(arg)) == SVt_PVCV) {
 			    filter_sub = arg;
-			    SvREFCNT_inc(filter_sub);
+			    (void)SvREFCNT_inc(filter_sub);
 
 			    if (i < count) {
 				filter_state = SP[i];
-				SvREFCNT_inc(filter_state);
+				(void)SvREFCNT_inc(filter_state);
 			    }
 
 			    if (tryrsfp == 0) {