| 6 |
and semantics are as close as possible to those of the Perl 5 language. |
and semantics are as close as possible to those of the Perl 5 language. |
| 7 |
|
|
| 8 |
Written by Philip Hazel |
Written by Philip Hazel |
| 9 |
Copyright (c) 1997-2006 University of Cambridge |
Copyright (c) 1997-2007 University of Cambridge |
| 10 |
|
|
| 11 |
----------------------------------------------------------------------------- |
----------------------------------------------------------------------------- |
| 12 |
Redistribution and use in source and binary forms, with or without |
Redistribution and use in source and binary forms, with or without |
| 43 |
for these functions came from Scott Wimer. */ |
for these functions came from Scott Wimer. */ |
| 44 |
|
|
| 45 |
|
|
| 46 |
|
#ifdef HAVE_CONFIG_H |
| 47 |
|
#include "config.h" |
| 48 |
|
#endif |
| 49 |
|
|
| 50 |
#include "pcre_internal.h" |
#include "pcre_internal.h" |
| 51 |
|
|
| 52 |
|
|
| 189 |
int entrysize; |
int entrysize; |
| 190 |
char *first, *last; |
char *first, *last; |
| 191 |
uschar *entry; |
uschar *entry; |
| 192 |
if ((re->options & (PCRE_DUPNAMES | PCRE_JCHANGED)) == 0) |
if ((re->options & PCRE_DUPNAMES) == 0 && (re->flags & PCRE_JCHANGED) == 0) |
| 193 |
return pcre_get_stringnumber(code, stringname); |
return pcre_get_stringnumber(code, stringname); |
| 194 |
entrysize = pcre_get_stringtable_entries(code, stringname, &first, &last); |
entrysize = pcre_get_stringtable_entries(code, stringname, &first, &last); |
| 195 |
if (entrysize <= 0) return entrysize; |
if (entrysize <= 0) return entrysize; |