From f3a6e3356179a29b3e34d4dbbd1c3cc37167e95d Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Mon, 4 Jan 1999 19:56:01 -0500 Subject: 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 --- lib/Text/ParseWords.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Text') 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 -- cgit v1.2.1