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 /regexec.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 'regexec.c')
| -rw-r--r-- | regexec.c | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -264,7 +264,8 @@ cache_re(regexp *prog) STATIC void restore_pos(void *arg) -{ +{ + dTHR; if (PL_reg_eval_set) { PL_reg_magic->mg_len = PL_reg_oldpos; PL_reg_eval_set = 0; @@ -402,10 +403,8 @@ regexec_flags(register regexp *prog, char *stringarg, register char *strend, s = startpos; } - DEBUG_r( - if (!PL_colorset) - reginitcolors(); - PerlIO_printf(Perl_debug_log, + DEBUG_r(if (!PL_colorset) reginitcolors()); + DEBUG_r(PerlIO_printf(Perl_debug_log, "%sMatching%s `%s%.60s%s%s' against `%s%.*s%s%s'\n", PL_colors[4],PL_colors[5],PL_colors[0], prog->precomp, |