Patch: document reg_data.what member

Message-ID: <20010712182532.14821.qmail@plover.com>

p4raw-id: //depot/perl@11322

1 files changed, 1 insertions, 0 deletions

diff --git a/regcomp.c b/regcomp.c
index 209743e26a..575bd43124 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4586,6 +4586,7 @@ Perl_pregfree(pTHX_ struct regexp *r)
 	SV** old_curpad;
 
 	while (--n >= 0) {
+          /* If you add a ->what type here, update the comment in regcomp.h */
 	    switch (r->data->what[n]) {
 	    case 's':
 		SvREFCNT_dec((SV*)r->data->data[n]);