[Rt-commit] r17858 - in rt/3.999/trunk: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Jan 21 08:10:43 2009
New Revision: 17858

Modified:
   rt/3.999/trunk/   (props changed)
   rt/3.999/trunk/lib/RT/Interface/REST.pm

Log:
 r18963 at sunnavys-mb:  sunnavy | 2009-01-21 20:58:49 +0800
 merged lib/RT/Interface/REST.pm


Modified: rt/3.999/trunk/lib/RT/Interface/REST.pm
==============================================================================
--- rt/3.999/trunk/lib/RT/Interface/REST.pm	(original)
+++ rt/3.999/trunk/lib/RT/Interface/REST.pm	Wed Jan 21 08:10:43 2009
@@ -178,7 +178,7 @@
                 vpush( $k, $f, join( "\n", @v ) );
 
                 $state = 1;
-            } elsif ( $line !~ /^#/ ) {
+            } elsif ( $line =~ /^#/ ) {
 
                 # We've found a syntax error, so we'll reconstruct the
                 # form parsed thus far, and add an error marker. (>>)
@@ -296,7 +296,9 @@
     my ($val) = @_;
     my ( $line, $word, @words );
 
-    foreach $line ( map { split /\n/ } ( ref $val eq 'ARRAY' ) ? @$val : $val ) {
+    foreach $line ( map { split /\n/ }
+            ( ref $val eq 'ARRAY' ) ? @$val : ( $val || '' ) )
+    {
 
         # XXX: This should become a real parser, ? la Text::ParseWords.
         $line =~ s/^\s+//;