diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2005-03-24 14:40:05 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2005-03-24 14:40:05 +0000 |
| commit | bd97c79f77a20fd2d3ea62cb8c30b6cc160830da (patch) | |
| tree | fc13fbb0512b5fdb68d7c8368878d35379f93399 /modules/StringProcessor.pm | |
| parent | 6ca8f276d17ffe762042d064d315afdea949276d (diff) | |
| download | MPC-bd97c79f77a20fd2d3ea62cb8c30b6cc160830da.tar.gz | |
ChangeLogTag: Thu Mar 24 08:38:59 2005 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/StringProcessor.pm')
| -rw-r--r-- | modules/StringProcessor.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/modules/StringProcessor.pm b/modules/StringProcessor.pm index 2b1047fc..db8be883 100644 --- a/modules/StringProcessor.pm +++ b/modules/StringProcessor.pm @@ -62,6 +62,8 @@ sub create_array { ## Replace all escaped double and single quotes with special characters my($escaped) = ($line =~ s/\\\"/\01/g); $escaped |= ($line =~ s/\\\'/\02/g); + $escaped |= ($line =~ s/\\ /\03/g); + $escaped |= ($line =~ s/\\\t/\04/g); foreach my $part (grep(!/^\s*$/, split(/(\"[^\"]+\"|\'[^\']+\'|\s+)/, $line))) { @@ -73,6 +75,8 @@ sub create_array { if ($escaped) { $part =~ s/\01/\"/g; $part =~ s/\02/\'/g; + $part =~ s/\03/ /g; + $part =~ s/\04/\t/g; } ## Push it onto the array |