diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-28 22:30:38 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-28 22:30:38 +0000 |
| commit | 35ef477370235abeea305d760b3f316d7667ba3c (patch) | |
| tree | 7e5b17ba5eb8815c58c13c43f7cf4b07bce789a7 /regcomp.c | |
| parent | 4c8f623d27bbea0cd0b08721f1c2f344dcb98a5b (diff) | |
| download | perl-35ef477370235abeea305d760b3f316d7667ba3c.tar.gz | |
various tweaks; result passes all tests for normal build on Solaris;
fails two pat.t tests under USE_THREADS; io_poll.t test#3 fails on
win32 due to lack of select() that works on non-socket fds
p4raw-id: //depot/perl@2377
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -824,10 +824,8 @@ pregcomp(char *exp, char *xend, PMOP *pm) PL_reg_flags = 0; PL_regprecomp = savepvn(exp, xend - exp); - DEBUG_r( - if (!PL_colorset) - reginitcolors(); - PerlIO_printf(Perl_debug_log, "%sCompiling%s RE `%s%*s%s'\n", + DEBUG_r(if (!PL_colorset) reginitcolors()); + DEBUG_r(PerlIO_printf(Perl_debug_log, "%sCompiling%s RE `%s%*s%s'\n", PL_colors[4],PL_colors[5],PL_colors[0], xend - exp, PL_regprecomp, PL_colors[1])); PL_regflags = pm->op_pmflags; |