diff options
| author | Jeffrey Friedl <jfriedl@regex.info> | 2001-07-13 16:25:12 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-14 09:18:09 +0000 |
| commit | 7be5a6cf23d140a25c85e50799cf50395576a4e8 (patch) | |
| tree | c5b67320865db71c971364ddde90b1ee0f229466 /regcomp.c | |
| parent | 80b3ef997d1e7ec82fb63942a04027d0ec078dc2 (diff) | |
| download | perl-7be5a6cf23d140a25c85e50799cf50395576a4e8.tar.gz | |
patch to add DEL to [:cntrl:]
Message-Id: <200107140625.XAA01517@ventrue.corp.yahoo.com>
p4raw-id: //depot/perl@11371
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4351,7 +4351,7 @@ Perl_regdump(pTHX_ regexp *r) STATIC void S_put_byte(pTHX_ SV *sv, int c) { - if (isCNTRL(c) || c == 127 || c == 255 || !isPRINT(c)) + if (isCNTRL(c) || c == 255 || !isPRINT(c)) Perl_sv_catpvf(aTHX_ sv, "\\%o", c); else if (c == '-' || c == ']' || c == '\\' || c == '^') Perl_sv_catpvf(aTHX_ sv, "\\%c", c); |