warnings identified by Borland compiler

p4raw-id: //depot/perl@3777

diff --git a/makedef.pl b/makedef.pl
index 50cbcbb..676d229 100644 (file)
--- 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 (file)
--- 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) {