diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-01 19:02:38 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-06-02 07:39:30 +0000 |
| commit | a0288114f9bfa2566e353eba77114ea63b616631 (patch) | |
| tree | 8c86c7a2a168301943e790fcdd612b20d47ea300 /regexec.c | |
| parent | 1936d2a74fbc35dd0d6862386c9988d92bb8e6e0 (diff) | |
| download | perl-a0288114f9bfa2566e353eba77114ea63b616631.tar.gz | |
Quotes fixed, see also perl #36079
Message-ID: <20050602050238.GA4001@petdance.com>
p4raw-id: //depot/perl@24666
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -438,7 +438,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, DEBUG_EXECUTE_r(PerlIO_printf(Perl_debug_log, "UTF-8 target...\n")); PerlIO_printf(Perl_debug_log, - "%sGuessing start of match, REx%s `%s%.60s%s%s' against `%s%.*s%s%s'...\n", + "%sGuessing start of match, REx%s \"%s%.60s%s%s\" against \"%s%.*s%s%s\"...\n", PL_colors[4], PL_colors[5], PL_colors[0], prog->precomp, PL_colors[1], @@ -578,7 +578,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, /* Update the count-of-usability, remove useless subpatterns, unshift s. */ - DEBUG_EXECUTE_r(PerlIO_printf(Perl_debug_log, "%s %s substr `%s%.*s%s'%s%s", + DEBUG_EXECUTE_r(PerlIO_printf(Perl_debug_log, "%s %s substr \"%s%.*s%s\"%s%s", (s ? "Found" : "Did not find"), (check == (do_utf8 ? prog->anchored_utf8 : prog->anchored_substr) ? "anchored" : "floating"), PL_colors[0], @@ -598,7 +598,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, /* Got a candidate. Check MBOL anchoring, and the *other* substr. Start with the other substr. XXXX no SCREAM optimization yet - and a very coarse implementation - XXXX /ttx+/ results in anchored=`ttx', floating=`x'. floating will + XXXX /ttx+/ results in anchored="ttx", floating="x". floating will *always* match. Probably should be marked during compile... Probably it is right to do no SCREAM here... */ @@ -645,7 +645,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, multiline ? FBMrf_MULTILINE : 0 ); DEBUG_EXECUTE_r(PerlIO_printf(Perl_debug_log, - "%s anchored substr `%s%.*s%s'%s", + "%s anchored substr \"%s%.*s%s\"%s", (s ? "Found" : "Contradicts"), PL_colors[0], (int)(SvCUR(must) @@ -704,7 +704,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, (unsigned char*)last + SvCUR(must) - (SvTAIL(must)!=0), must, multiline ? FBMrf_MULTILINE : 0); - DEBUG_EXECUTE_r(PerlIO_printf(Perl_debug_log, "%s floating substr `%s%.*s%s'%s", + DEBUG_EXECUTE_r(PerlIO_printf(Perl_debug_log, "%s floating substr \"%s%.*s%s\"%s", (s ? "Found" : "Contradicts"), PL_colors[0], (int)(SvCUR(must) - (SvTAIL(must)!=0)), @@ -1742,7 +1742,7 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char * if (!PL_colorset) reginitcolors(); PerlIO_printf(Perl_debug_log, - "%sMatching REx%s `%s%*.*s%s%s' against `%s%.*s%s%s'\n", + "%sMatching REx%s \"%s%*.*s%s%s\" against \"%s%.*s%s%s\"\n", PL_colors[4], PL_colors[5], PL_colors[0], len0, len0, s0, PL_colors[1], @@ -1882,7 +1882,7 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char * else last1 = s - 1; /* bogus */ - /* XXXX check_substr already used to find `s', can optimize if + /* XXXX check_substr already used to find "s", can optimize if check_substr==must. */ scream_pos = -1; dontbother = end_shift; @@ -1925,7 +1925,7 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char * } DEBUG_EXECUTE_r(if (!did_match) PerlIO_printf(Perl_debug_log, - "Did not find %s substr `%s%.*s%s'%s...\n", + "Did not find %s substr \"%s%.*s%s\"%s...\n", ((must == prog->anchored_substr || must == prog->anchored_utf8) ? "anchored" : "floating"), PL_colors[0], @@ -1959,7 +1959,7 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char * sv_uni_display(dsv1, sv, 60, UNI_DISPLAY_REGEX) : s; len1 = UTF ? SvCUR(dsv1) : strend - s; PerlIO_printf(Perl_debug_log, - "Matching stclass `%*.*s' against `%*.*s'\n", + "Matching stclass \"%*.*s\" against \"%*.*s\"\n", len0, len0, s0, len1, len1, s1); }); @@ -2004,7 +2004,7 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char * if (len) last = rninstr(s, strend, little, little + len); else - last = strend; /* matching `$' */ + last = strend; /* matching "$" */ } } if (last == NULL) { @@ -3268,7 +3268,7 @@ S_regmatch(pTHX_ regnode *prog) } DEBUG_EXECUTE_r( PerlIO_printf(Perl_debug_log, - "Entering embedded `%s%.60s%s%s'\n", + "Entering embedded \"%s%.60s%s%s\"\n", PL_colors[0], re->precomp, PL_colors[1], |