[Bps-public-commit] RT-Client-CLI branch, master, updated. 6be5109dd113a58907bbad6b673a0b36458d165e

[? sunnavy]

The branch, master has been updated
       via  6be5109dd113a58907bbad6b673a0b36458d165e (commit)
      from  c1e6871c327a0794f77ae8a9b8bb5cb997663bc7 (commit)

Summary of changes:
 script/rt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 6be5109dd113a58907bbad6b673a0b36458d165e
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Wed Jun 27 00:04:59 2018 +0800

    Update to 4.4.3

diff --git a/script/rt b/script/rt
index 00b5c61..4c9d589 100644
--- a/script/rt
+++ b/script/rt
@@ -3,7 +3,7 @@
 #
 # COPYRIGHT:
 #
-# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2018 Best Practical Solutions, LLC
 #                                          <sales at bestpractical.com>
 #
 # (Except where explicitly superseded by other copyright notices)
@@ -1293,7 +1293,7 @@ sub Form::parse {
             elsif ($state <= 1 && $line =~ /^($field):(?:\s+(.*))?$/) {
                 # Read a field: value specification.
                 my $f  = $1;
-                my @v  = ($2 || ());
+                my @v  = (defined $2 && length $2 ? $2 : ());
 
                 # Read continuation lines, if any.
                 while (@lines && ($lines[0] eq '' || $lines[0] =~ /^\s+/)) {

-----------------------------------------------------------------------