diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2014-02-04 00:38:39 -0300 |
|---|---|---|
| committer | Brian Fraser <fraserbn@gmail.com> | 2014-02-05 04:32:47 -0300 |
| commit | dc6d7f5c0d35ddfd7e124c5143d9f0309ca9a149 (patch) | |
| tree | 9f75f68a9742d7a951cdd6a80c45272311e21caf /regcomp.c | |
| parent | 83d7d07d621fa8abcdb4e3b0a7a6cd7fd002dafa (diff) | |
| download | perl-dc6d7f5c0d35ddfd7e124c5143d9f0309ca9a149.tar.gz | |
Avoid compiler warnings by consistently using #ifdef instead of plain #if
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -160,7 +160,7 @@ struct RExC_state_t { int num_code_blocks; /* size of code_blocks[] */ int code_index; /* next code_blocks[] slot */ SSize_t maxlen; /* mininum possible number of chars in string to match */ -#if ADD_TO_REGEXEC +#ifdef ADD_TO_REGEXEC char *starttry; /* -Dr: where regtry was called. */ #define RExC_starttry (pRExC_state->starttry) #endif @@ -7432,7 +7432,7 @@ Perl_reg_numbered_buff_fetch(pTHX_ REGEXP * const r, const I32 paren, assert(s >= rx->subbeg); assert((STRLEN)rx->sublen >= (STRLEN)((s - rx->subbeg) + i) ); if (i >= 0) { -#if NO_TAINT_SUPPORT +#ifdef NO_TAINT_SUPPORT sv_setpvn(sv, s, i); #else const int oldtainted = TAINT_get; |