X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=ada96a23aff1123fd50083ba781321bdce46edeb;hb=d822fdf9523774354b4abafec1aa0c8639788575;hp=554a3c0ab53abaec9048909c2cb12ddf40c9aa71;hpb=ed6c66dd09fbfa492035c1c3ffab6e32232b3d6e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index 554a3c0..ada96a2 100644
--- a/perl.c
+++ b/perl.c
@@ -2933,7 +2933,7 @@ Perl_get_debug_opts(pTHX_ const char **s, bool givehelp)
     int i = 0;
     if (isALPHA(**s)) {
 	/* if adding extra options, remember to update DEBUG_MASK */
-	static const char debopts[] = "psltocPmfrxu HXDSTRJvCAq";
+	static const char debopts[] = "psltocPmfrxuUHXDSTRJvCAq";
 
 	for (; isALNUM(**s); (*s)++) {
 	    const char * const d = strchr(debopts,**s);
@@ -3478,7 +3478,6 @@ S_init_interp(pTHX)
 
     /* As these are inside a structure, PERLVARI isn't capable of initialising
        them  */
-    PL_regindent = 0;
     PL_reg_oldcurpm = PL_reg_curpm = NULL;
     PL_reg_poscache = PL_reg_starttry = NULL;
 }
@@ -5071,7 +5070,7 @@ S_incpush(pTHX_ const char *dir, bool addsubdirs, bool addoldvers, bool usesep,
 	    if (addoldvers) {
 		for (incver = incverlist; *incver; incver++) {
 		    /* .../xxx if -d .../xxx */
-		    Perl_sv_setpvf(aTHX_ subdir, "%"SVf PERL_ARCH_FMT, libdir, *incver);
+		    Perl_sv_setpvf(aTHX_ subdir, "%"SVf PERL_ARCH_FMT, (void *)libdir, *incver);
 		    subdir = S_incpush_if_exists(aTHX_ subdir);
 		}
 	    }