[TWiki-Dev] [SVN] MichaelDaum r11388 - twiki/branches/TWikiRelease04x00/lib/TWiki/Prefs

[<de...@de...>]

Author: MichaelDaum
Date: 2006-08-30 07:04:20 -0500 (Wed, 30 Aug 2006)
New Revision: 11388

Modified:
   twiki/branches/TWikiRelease04x00/lib/TWiki/Prefs/Parser.pm
Log:
Item2821: fixed adding whitespaces on preceding lines

example:

   * Set foo = bar
<space><space><space>

would set foo to 

bar
<space><space><space>

instead of 

bar


So there must be at least one non-whitespace to add the preceding
line to the variable value.



Modified: twiki/branches/TWikiRelease04x00/lib/TWiki/Prefs/Parser.pm
===================================================================
--- twiki/branches/TWikiRelease04x00/lib/TWiki/Prefs/Parser.pm	2006-08-30 12:00:21 UTC (rev 11387)
+++ twiki/branches/TWikiRelease04x00/lib/TWiki/Prefs/Parser.pm	2006-08-30 12:04:20 UTC (rev 11388)
@@ -75,7 +75,7 @@
             $key = $2;
             $value = (defined $3) ? $3 : '';
         } elsif( defined $type ) {
-            if( /^(   |\t)+ */ && !/$TWiki::regex{bulletRegex}/o ) {
+            if( /^(   |\t)+ *[^\s]/ && !/$TWiki::regex{bulletRegex}/o ) {
                 # follow up line, extending value
                 $value .= "\n".$_;
             } else {