[Fb2-perl-tools-svn] SF.net SVN: fb2-perl-tools: [53] trunk/fb2-perl-tools/fb2/Footnotes.pm

[<sh...@us...>]

Revision: 53
          http://fb2-perl-tools.svn.sourceforge.net/fb2-perl-tools/?rev=53&view=rev
Author:   shaplov
Date:     2007-11-07 04:18:45 -0800 (Wed, 07 Nov 2007)

Log Message:
-----------
That Will allow convert multiline comments into footnotes

Modified Paths:
--------------
    trunk/fb2-perl-tools/fb2/Footnotes.pm

Modified: trunk/fb2-perl-tools/fb2/Footnotes.pm
===================================================================
--- trunk/fb2-perl-tools/fb2/Footnotes.pm	2007-10-14 15:47:25 UTC (rev 52)
+++ trunk/fb2-perl-tools/fb2/Footnotes.pm	2007-11-07 12:18:45 UTC (rev 53)
@@ -82,11 +82,11 @@
       if ($_->nodeType == XML_COMMENT_NODE)
       {
         my $node=$_;
-        if ( $node->data()=~/^\s*$keyword(.*)/ )
+        if ( $node->data()=~/^\s*$keyword(.*)/s )
 	{
 	  my $text=$1;
 	  my $number = int(rand(10000));
-	  if ($use_number && ($text=~/^(\d+)\s+(.*)$/) )
+	  if ($use_number && ($text=~/^(\d+)\s+(.*)$/s) )
 	  {
 	    $text = $2;
 	    $number = $1;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.