diff options
| author | Raphael Manfredi <Raphael_Manfredi@grenoble.hp.com> | 1997-03-06 14:10:38 +0100 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-03-01 18:40:49 +1200 |
| commit | 385588b3949e695a02c8ea1dd00fe789d6044de3 (patch) | |
| tree | 3ee9ff5bd5715756399a102b042284ec5e88881b /lib/Text | |
| parent | 1db9566f513791929f1e21e86206e5669d5b11c2 (diff) | |
| download | perl-385588b3949e695a02c8ea1dd00fe789d6044de3.tar.gz | |
HP-UX hint update
Quoting Chip Salzenberg:
:If you have a second, please look them over and see if anything
:important is out or anything broken is in.
I don't see my hint/hpux.sh patch. Here it is again (in unified format
this time):
p5p-msgid: 1479.857653838@lyon.grenoble.hp.com
Diffstat (limited to 'lib/Text')
| -rw-r--r-- | lib/Text/ParseWords.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Text/ParseWords.pm b/lib/Text/ParseWords.pm index f2e1514972..f86c8c2991 100644 --- a/lib/Text/ParseWords.pm +++ b/lib/Text/ParseWords.pm @@ -95,12 +95,12 @@ sub quotewords { while (length($_)) { $field = ''; for (;;) { - $snippet = ''; - if (s/^"(([^"\\]|\\.)*)"//) { + $snippet = ''; + if (s/^"(([^"\\]|\\[\\"])*)"//) { $snippet = $1; $snippet = "\"$snippet\"" if ($keep); } - elsif (s/^'(([^'\\]|\\.)*)'//) { + elsif (s/^'(([^'\\]|\\[\\'])*)'//) { $snippet = $1; $snippet = "'$snippet'" if ($keep); } |