diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-01-04 19:56:01 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-01-08 08:31:02 +0000 |
| commit | f3a6e3356179a29b3e34d4dbbd1c3cc37167e95d (patch) | |
| tree | d4626013f2909a32dc779b8a06209947a630d3b2 /lib/Text | |
| parent | 5a411a32e4c18cbe40a6ed1a4de4dafa8a4c0d7a (diff) | |
| download | perl-f3a6e3356179a29b3e34d4dbbd1c3cc37167e95d.tar.gz | |
Change #2584 from maint-5.005:
implemented Ilya's suggested fix, and added a testcase
Message-Id: <199901050556.AAA02597@monk.mps.ohio-state.edu>
Subject: Re: Text::ParseWords: regex fix
p4raw-id: //depot/cfgperl@2585
Diffstat (limited to 'lib/Text')
| -rw-r--r-- | lib/Text/ParseWords.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Text/ParseWords.pm b/lib/Text/ParseWords.pm index 2414f805b5..065c2f7255 100644 --- a/lib/Text/ParseWords.pm +++ b/lib/Text/ParseWords.pm @@ -63,7 +63,7 @@ sub parse_line { ([\000-\377]*) # and the rest | # --OR-- ^((?:\\.|[^\\"'])*?) # an $unquoted text - (\Z(?!\n)|$delimiter|(?!^)(?=["'])) + (\Z(?!\n)|(?-x:$delimiter)|(?!^)(?=["'])) # plus EOL, delimiter, or quote ([\000-\377]*) # the rest /x; # extended layout |