[Cpan-forum-commit] rev 63 - in trunk: lib/CPAN/Forum t

[svn at pti.co.il]

Author: gabor
Date: 2005-02-02 17:06:52 +0200 (Wed, 02 Feb 2005)
New Revision: 63

Modified:
   trunk/lib/CPAN/Forum/Markup.pm
   trunk/t/010-markup.t
Log:
accept <p> in the html markup

Modified: trunk/lib/CPAN/Forum/Markup.pm
===================================================================
--- trunk/lib/CPAN/Forum/Markup.pm	2005-02-02 15:03:35 UTC (rev 62)
+++ trunk/lib/CPAN/Forum/Markup.pm	2005-02-02 15:06:52 UTC (rev 63)
@@ -17,6 +17,9 @@
 	html       : text                             { $item[1] } 
 	           | open_b text close_b              { join "", @item[1..$#item] }
 	           | open_i text close_i              { join "", @item[1..$#item] }
+	           | open_p text close_p              { join "", @item[1..$#item] }
+	open_p     : m{<p>}
+	close_p    : m{</p>}
 	open_b     : m{<b>}
 	close_b    : m{</b>}
 	open_i     : m{<i>}

Modified: trunk/t/010-markup.t
===================================================================
--- trunk/t/010-markup.t	2005-02-02 15:03:35 UTC (rev 62)
+++ trunk/t/010-markup.t	2005-02-02 15:06:52 UTC (rev 63)
@@ -48,6 +48,7 @@
 	'a<i>c</i><code>x</code>d<code>y</code>' => $TEXT . 'a<i>c</i>' . $END . $CODE . 'x' . $END . $TEXT . 'd' . $END . $CODE . 'y' . $END,
 	'a<b>c</b>d<i>x</i>f'      => $TEXT . 'a<b>c</b>d<i>x</i>f' . $END,
 	'&lt;'                     => $TEXT . '&lt;' . $END,
+	'<p>text</p>'              => $TEXT . '<p>text</p>' . $END,
 
 
 );
@@ -70,6 +71,7 @@
 	'a<b>c'                    => undef,
 	'a<i>c'                    => undef,
 	'apple<'                   => undef,
+	'<p>text'                  => undef,
 );