diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 1998-07-27 07:16:15 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-08 23:01:57 +0000 |
| commit | 69cc184b71d2368b981feb90a3ed26718963ec67 (patch) | |
| tree | 0ef4a8afc9eaced7c8cf0b5ae4c64def46e77c7b /regcomp.c | |
| parent | fe2c25664928177f74d1bf55c146cfd32824d5f1 (diff) | |
| download | perl-69cc184b71d2368b981feb90a3ed26718963ec67.tar.gz | |
fix bogus warning on "\x{123}"
Message-Id: <9807270534.AA11102@claudius.bfsec.bt.co.uk>
Subject: [5.005_50 PATCH] Some unicode problems
p4raw-id: //depot/perl@1771
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2115,7 +2115,7 @@ regclass(void) * (POSIX Extended Character Classes, that is) * The text between e.g. [: and :] would start * at posixccs + 1 and stop at regcomp_parse - 2. */ - if (dowarn && !SIZE_ONLY) + if (PL_dowarn && !SIZE_ONLY) warn("Character class syntax [%c %c] is reserved for future extensions", posixccc, posixccc); PL_regcomp_parse++; /* skip over the ending ] */ } @@ -2317,7 +2317,7 @@ regclassutf8(void) * (POSIX Extended Character Classes, that is) * The text between e.g. [: and :] would start * at posixccs + 1 and stop at regcomp_parse - 2. */ - if (dowarn && !SIZE_ONLY) + if (PL_dowarn && !SIZE_ONLY) warn("Character class syntax [%c %c] is reserved for future extensions", posixccc, posixccc); PL_regcomp_parse++; /* skip over the ending ] */ } |