Casts to make Win32 and -DDEBUGGING quieter.

p4raw-id: //depot/maint-5.8/perl@25671

diff --git a/mg.c b/mg.c
index 08e286b..5b3ff3d 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -2101,7 +2101,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
     case '\004':       /* ^D */
 #ifdef DEBUGGING
        s = SvPV_nolen_const(sv);
-       PL_debug = get_debug_opts_flags(&s, 0) | DEBUG_TOP_FLAG;
+       PL_debug = get_debug_opts_flags((char **)&s, 0) | DEBUG_TOP_FLAG;
        DEBUG_x(dump_all());
 #else
        PL_debug = (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)) | DEBUG_TOP_FLAG;

diff --git a/pp_sys.c b/pp_sys.c
index ec4e02f..5a91345 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3808,7 +3808,7 @@ PP(pp_open_dir)
 
     if (IoDIRP(io))
        PerlDir_close(IoDIRP(io));
-    if (!(IoDIRP(io) = PerlDir_open(dirname)))
+    if (!(IoDIRP(io) = PerlDir_open((char *)dirname)))
        goto nope;
 
     RETPUSHYES;