This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
166f8a2
)
shut up a warning in mg.c
author
Dave Mitchell
<davem@fdisolutions.com>
Sat, 31 Jul 2004 16:27:09 +0000
(16:27 +0000)
committer
Dave Mitchell
<davem@fdisolutions.com>
Sat, 31 Jul 2004 16:27:09 +0000
(16:27 +0000)
p4raw-id: //depot/perl@23177
mg.c
patch
|
blob
|
blame
|
history
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;
}