This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
shut up a warning in mg.c
authorDave Mitchell <davem@fdisolutions.com>
Sat, 31 Jul 2004 16:27:09 +0000 (16:27 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sat, 31 Jul 2004 16:27:09 +0000 (16:27 +0000)
p4raw-id: //depot/perl@23177

mg.c

diff --git a/mg.c b/mg.c
index ec9817f..bf9ecee 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -208,7 +208,7 @@ Perl_mg_get(pTHX_ SV *sv)
     if (SvREFCNT(sv) == 1) {
        /* We hold the last reference to this SV, which implies that the
           SV was deleted as a side effect of the routines we called.  */
-       SvOK_off(sv);
+       (void)SvOK_off(sv);
     }
     return 0;
 }