[MKDoc-commit] [1.6] Don't strip internal empty lines and whitespace from descriptions.

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[1.6] Don't strip internal empty lines and whitespace from descriptions.
Still strip from beginning and end of string.

Tags:
----
mkdoc-1-6

Modified Files:
--------------
    mkd/flo/Record:
        Document.pm

-------------- next part --------------
Index: Document.pm
===================================================================
RCS file: /var/spool/cvs/mkd/flo/Record/Document.pm,v
retrieving revision 1.25.2.72
retrieving revision 1.25.2.73
diff -Lflo/Record/Document.pm -Lflo/Record/Document.pm -u -r1.25.2.72 -r1.25.2.73
--- flo/Record/Document.pm
+++ flo/Record/Document.pm
@@ -1246,8 +1246,8 @@
 {
     my $self = shift;
     my $val  = shift;
-    $val =~ s/^(?:\s|\n|\r)+//gsm;
-    $val =~ s/(?:\s|\n|\r)+$//gsm;
+    $val =~ s/^(?:\s|\n|\r)+//gs;
+    $val =~ s/(?:\s|\n|\r)+$//gs;
     $self->{Description} = $val;
 }
 
@@ -1256,8 +1256,8 @@
 {
     my $self = shift;
     my $description = $self->description();
-    $description =~ s/^(?:\s|\n|\r)+//gsm;
-    $description =~ s/(?:\s|\n|\r)+$//gsm;
+    $description =~ s/^(?:\s|\n|\r)+//gs;
+    $description =~ s/(?:\s|\n|\r)+$//gs;
     
     unless (defined $description and $description)
     {