diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-08 15:39:40 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-08 15:39:40 +0000 |
| commit | 8b6b16e72bf4dd30bd09781ad50e9f66fd94440b (patch) | |
| tree | e4f7d3a25be8a7b00eb3fc485a6669b2cde6206c /regcomp.c | |
| parent | 13c5b33cae5690f108494286e4d841e38c57677d (diff) | |
| download | perl-8b6b16e72bf4dd30bd09781ad50e9f66fd94440b.tar.gz | |
Nuke some more n_a, and convert S_gv_ename from char * to const char *
p4raw-id: //depot/perl@24760
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -6106,9 +6106,9 @@ Perl_re_intuit_string(pTHX_ regexp *prog) { /* Assume that RE_INTUIT is set */ GET_RE_DEBUG_FLAGS_DECL; DEBUG_COMPILE_r( - { STRLEN n_a; - const char *s = SvPV(prog->check_substr - ? prog->check_substr : prog->check_utf8, n_a); + { + const char *s = SvPV_nolen_const(prog->check_substr + ? prog->check_substr : prog->check_utf8); if (!PL_colorset) reginitcolors(); PerlIO_printf(Perl_debug_log, |