diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-26 13:18:53 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-26 13:18:53 +0000 |
| commit | 520c758a267ecaffc48416a901e0ba5e43b7a2d3 (patch) | |
| tree | ea9c219d94029e9339a8d6387a0e5b0fbca13fbf | |
| parent | 1db3cb89016a615d369dea3fa516d86032e20043 (diff) | |
| download | perl-520c758a267ecaffc48416a901e0ba5e43b7a2d3.tar.gz | |
warnings identified by Borland compiler
p4raw-id: //depot/perl@3777
| -rw-r--r-- | makedef.pl | 2 | ||||
| -rw-r--r-- | pp_ctl.c | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/makedef.pl b/makedef.pl index 50cbcbb00c..676d229283 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") { @@ -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) { |