From b6778ba290a3dade4e3eecbcb7eef3ced94789cb Mon Sep 17 00:00:00 2001
From: Chad Elliott <elliottc@objectcomputing.com>
Date: Fri, 14 Oct 2022 12:19:08 -0500
Subject: Temporarily escape new-line characters when creating an array so that
 regular expressions for splitting the string work properly.

---
 modules/StringProcessor.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'modules')

diff --git a/modules/StringProcessor.pm b/modules/StringProcessor.pm
index f6da1934..845f684a 100644
--- a/modules/StringProcessor.pm
+++ b/modules/StringProcessor.pm
@@ -82,6 +82,7 @@ sub create_array {
   $escaped |= ($line =~ s/\\\t/\04/g);
   $escaped |= ($line =~ s/\\\"/\05/g);
   $escaped |= ($line =~ s/\\\\/\06/g);
+  $escaped |= ($line =~ s/\n/\07/g);
 
   foreach my $part (grep(!/^\s*$/,
                          split(/(\"[^\"]+\"|\'[^\']+\'|\s+)/, $line))) {
@@ -98,6 +99,7 @@ sub create_array {
       $part =~ s/\04/\t/g;
       $part =~ s/\05/\"/g;
       $part =~ s/\06/\\/g;
+      $part =~ s/\07/\n/g;
     }
 
     ## Push it onto the array
-- 
cgit v1.2.1