diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-11-27 10:22:19 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-28 19:21:17 +0000 |
| commit | d88dccdfb395b1157f084b2065b4dae06e68381b (patch) | |
| tree | 376bfec25d3d6d3556bba5feabb29288ccd4c921 /regexec.c | |
| parent | 6a65c6a0721422f3dbac9c301f2d6e8b04b74975 (diff) | |
| download | perl-d88dccdfb395b1157f084b2065b4dae06e68381b.tar.gz | |
regcolors
Message-Id: <199811272022.PAA17874@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@2370
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -37,6 +37,7 @@ # define Perl_regprop my_regprop /* *These* symbols are masked to allow static link. */ # define Perl_pregexec my_pregexec +# define Perl_reginitcolors my_reginitcolors #endif /*SUPPRESS 112*/ @@ -401,6 +402,8 @@ regexec_flags(register regexp *prog, char *stringarg, register char *strend, } DEBUG_r( + if (!PL_colorset) + reginitcolors(); 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], |