In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/82336099d393c4ac04507e58e4402ba9c413f791?hp=be6c6a23f06d680159ce323c1906d297abbe85cd>
- Log ----------------------------------------------------------------- commit 82336099d393c4ac04507e58e4402ba9c413f791 Author: David Mitchell <[email protected]> Date: Fri Feb 4 15:19:41 2011 +0000 silence do_curse() compiler warning Usage of the static function do_curse() in sv.c has been temporarily disabled; comment out the function definition too, to avoid a compiler warning about an unused function. ----------------------------------------------------------------------- Summary of changes: sv.c | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/sv.c b/sv.c index c1274e8..6e8e5f3 100644 --- a/sv.c +++ b/sv.c @@ -552,6 +552,7 @@ do_clean_named_io_objs(pTHX_ SV *const sv) } /* Void wrapper to pass to visit() */ +/* XXX static void do_curse(pTHX_ SV * const sv) { if ((PL_stderrgv && GvGP(PL_stderrgv) && (SV*)GvIO(PL_stderrgv) == sv) @@ -559,6 +560,7 @@ do_curse(pTHX_ SV * const sv) { return; (void)curse(sv, 0); } +*/ /* =for apidoc sv_clean_objs -- Perl5 Master Repository
