This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
precomp in struct regexp can be const char *.
authorNicholas Clark <nick@ccl4.org>
Sat, 31 Mar 2007 15:50:05 +0000 (15:50 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 31 Mar 2007 15:50:05 +0000 (15:50 +0000)
p4raw-id: //depot/perl@30812

regexp.h

index e17b2c9..e195f67 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -89,8 +89,9 @@ typedef struct regexp {
         
         
         /* Information about the match that isn't often used */
-       char *precomp;          /* pre-compilation regular expression */
+       const char *precomp;    /* pre-compilation regular expression */
        I32 prelen;             /* length of precomp */
+       /* wrapped can't be const char*, as it is returned by sv_2pv_flags */
        char *wrapped;          /* wrapped version of the pattern */
        I32 wraplen;            /* length of wrapped */
        I32 seen_evals;         /* number of eval groups in the pattern - for security checks */