This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence a compiler warning
authorFather Chrysostomos <sprout@cpan.org>
Mon, 3 Jan 2011 07:21:14 +0000 (23:21 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 3 Jan 2011 07:48:37 +0000 (23:48 -0800)
sv.c

diff --git a/sv.c b/sv.c
index 160b132..5f9fb5d 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -554,8 +554,8 @@ do_clean_named_io_objs(pTHX_ SV *const sv)
 /* Void wrapper to pass to visit() */
 static void
 do_curse(pTHX_ SV * const sv) {
-    if ((PL_stderrgv && GvGP(PL_stderrgv) && GvIO(PL_stderrgv) == sv)
-     || (PL_defoutgv && GvGP(PL_defoutgv) && GvIO(PL_defoutgv) == sv))
+    if ((PL_stderrgv && GvGP(PL_stderrgv) && (SV*)GvIO(PL_stderrgv) == sv)
+     || (PL_defoutgv && GvGP(PL_defoutgv) && (SV*)GvIO(PL_defoutgv) == sv))
        return;
     (void)curse(sv, 0);
 }