/[pcre]/code/trunk/pcre_compile.c
ViewVC logotype

Diff of /code/trunk/pcre_compile.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 642 by ph10, Thu Jul 28 18:59:40 2011 UTC revision 643 by ph10, Fri Jul 29 15:56:39 2011 UTC
# Line 4997  for (;; ptr++) Line 4997  for (;; ptr++)
4997        previous = NULL;        previous = NULL;
4998        while ((cd->ctypes[*++ptr] & ctype_letter) != 0) {};        while ((cd->ctypes[*++ptr] & ctype_letter) != 0) {};
4999        namelen = (int)(ptr - name);        namelen = (int)(ptr - name);
5000    
5001          /* It appears that Perl allows any characters whatsoever, other than
5002          a closing parenthesis, to appear in arguments, so we no longer insist on
5003          letters, digits, and underscores. */
5004    
5005        if (*ptr == CHAR_COLON)        if (*ptr == CHAR_COLON)
5006          {          {
5007          arg = ++ptr;          arg = ++ptr;
5008          while ((cd->ctypes[*ptr] & (ctype_letter|ctype_digit)) != 0          while (*ptr != 0 && *ptr != CHAR_RIGHT_PARENTHESIS) ptr++;
           || *ptr == '_') ptr++;  
5009          arglen = (int)(ptr - arg);          arglen = (int)(ptr - arg);
5010          }          }
5011    
5012        if (*ptr != CHAR_RIGHT_PARENTHESIS)        if (*ptr != CHAR_RIGHT_PARENTHESIS)
5013          {          {
5014          *errorcodeptr = ERR60;          *errorcodeptr = ERR60;
Legend:
Removed from v.642  
changed lines
  Added in v.643
  ViewVC Help
Powered by ViewVC 1.1.5