diff options
| author | Karl Williamson <khw@cpan.org> | 2020-02-13 08:58:10 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-02-13 09:07:44 -0700 |
| commit | f23231429264cf7e42bf0d4a4d791918ee5d5683 (patch) | |
| tree | 56e7e274865949814f8da058db258a9eec4dbda6 | |
| parent | 52a63a99a0661219d2f3886060edbcdcbbae56d8 (diff) | |
| download | perl-f23231429264cf7e42bf0d4a4d791918ee5d5683.tar.gz | |
regen/regcomp.pl: Add cautionary comment
So the next person spends less time than I did in figuring things out
| -rw-r--r-- | regen/regcomp.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/regen/regcomp.pl b/regen/regcomp.pl index 2eac179684..d69859c263 100644 --- a/regen/regcomp.pl +++ b/regen/regcomp.pl @@ -448,7 +448,8 @@ EOP while (<$in_fh>) { # optional leading '_'. Return symbol in $1, and strip it from - # comment of line + # comment of line. Currently doesn't handle comments running onto + # next line if (s/^ \# \s* define \s+ ( _? RXf_ \w+ ) \s+ //xi) { chomp; my $define= $1; |