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

diff --git a/perl.c b/perl.c
index c15874a..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);