[Cpan-forum-commit] rev 40 - trunk

[svn at pti.co.il]

Author: gabor
Date: 2005-01-25 22:55:02 +0200 (Tue, 25 Jan 2005)
New Revision: 40

Modified:
   trunk/parse.pl
Log:
enable more parse test and make it like a real test

Modified: trunk/parse.pl
===================================================================
--- trunk/parse.pl	2005-01-25 20:54:18 UTC (rev 39)
+++ trunk/parse.pl	2005-01-25 20:55:02 UTC (rev 40)
@@ -16,7 +16,7 @@
 	code: opencode codetext closecode {$item[2] }
 	opencode:  m{<code>}
 	closecode: m{</code>}
-	codetext: m{[\w <\$]+(?=</code>)} { qq(<div class="code">) . CGI::escapeHTML($item[1]) . qq(</div>); }
+	codetext: m{[\w <>\$]+(?=</code>)} { qq(<div class="code">) . CGI::escapeHTML($item[1]) . qq(</div>); }
 	eodata:   m{^\Z}
 };
 	#codetext: m{[ -.0-~\s]+} { qq(<div class="code">$item[1]</div>); }
@@ -33,7 +33,7 @@
 	'apple<code><</code>'      => q(<div class="text">apple</div><div class="code">&lt;</div>),
 	'<code> $x < $y </code>'   => q(<div class="code"> $x &lt; $y </div>),
 	'<code extra><STD></code>' => undef,
-#	'<code><STD></code>'       => q(<div code extra>&lt;STD&gt;</code>), 
+	'<code><STD></code>'       => q(<div code extra>&lt;STD&gt;</code>), 
 );
 use Data::Dumper;
 #print Dumper $parser->entry($text);