Clean up copy-on-write macros and debug facilities (new flag 'C').

Handle CoW in hashes:
Subject: Re: why would tr/// be performing hash copies?
Message-id: <20020818221700.GD294@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@17740

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 224cc9c0de..58e2ac1fd8 100644
--- a/perl.c
+++ b/perl.c
@@ -2338,7 +2338,7 @@ Perl_moreswitches(pTHX_ char *s)
 	forbid_setid("-D");
 	if (isALPHA(s[1])) {
 	    /* if adding extra options, remember to update DEBUG_MASK */
-	    static char debopts[] = "psltocPmfrxuLHXDSTRJv";
+	    static char debopts[] = "psltocPmfrxuLHXDSTRJvC";
 	    char *d;
 
 	    for (s++; *s && (d = strchr(debopts,*s)); s++)