Changeset 321
- Timestamp:
- 10/27/06 10:35:36 (2 years ago)
- Files:
-
- library/perl/trunk/Text-Trac/Changes (modified) (1 diff)
- library/perl/trunk/Text-Trac/lib/Text/Trac.pm (modified) (2 diffs)
- library/perl/trunk/Text-Trac/lib/Text/Trac/BlockquoteNode.pm (modified) (1 diff)
- library/perl/trunk/Text-Trac/lib/Text/Trac/DlNode.pm (modified) (1 diff)
- library/perl/trunk/Text-Trac/lib/Text/Trac/UlNode.pm (modified) (1 diff)
- library/perl/trunk/Text-Trac/t/01-text-trac.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
library/perl/trunk/Text-Trac/Changes
r193 r321 1 1 Revision history for Text-Trac 2 3 0.05 Fri Oct 27 4 Fix the ticket #21431 on rt.cpan.org. 5 http://rt.cpan.org/Ticket/Display.html?id=21431 6 Thanks to Andrew Sterling Hanenkamp and Graham TerMarsch. 2 7 3 8 0.04 Wed Jul 19 library/perl/trunk/Text-Trac/lib/Text/Trac.pm
r193 r321 6 6 use Text::Trac::BlockNode; 7 7 8 our $VERSION = '0.0 4';8 our $VERSION = '0.05'; 9 9 10 10 my %Defaults = ( … … 55 55 =head1 VERSION 56 56 57 Version 0.0 457 Version 0.05 58 58 59 59 =head1 SYNOPSIS library/perl/trunk/Text-Trac/lib/Text/Trac/BlockquoteNode.pm
r168 r321 6 6 sub init { 7 7 my $self = shift; 8 $self->pattern(qr/^\s\s([^\s ].+)$/);8 $self->pattern(qr/^\s\s([^\s*].+)$/); 9 9 $self->block_nodes([ qw( heading p ul ol ) ]); 10 10 } library/perl/trunk/Text-Trac/lib/Text/Trac/DlNode.pm
r176 r321 51 51 $c->htmllines('</dl>'); 52 52 53 return; 53 54 } 54 55 library/perl/trunk/Text-Trac/lib/Text/Trac/UlNode.pm
r176 r321 48 48 49 49 $c->htmllines($l); 50 51 return; 50 52 } 51 53 library/perl/trunk/Text-Trac/t/01-text-trac.t
r176 r321 2 2 3 3 use strict; 4 use Test::More tests => 2 7;4 use Test::More tests => 28; 5 5 BEGIN { use_ok('Text::Trac') }; 6 6 … … 426 426 chomp($html); 427 427 is( $p->html, $html ); 428 429 ### test for fix of ticket #21431 on rt.cpan.org 430 431 $text =<<TXT; 432 * list 1-1 433 * list 1-2 434 * list 2-1 435 * list 2-2 436 TXT 437 438 $html =<<HTML; 439 <ul><li>list 1-1</li> 440 <li>list 1-2</li> 441 <ul><li>list 2-1</li> 442 <li>list 2-2</li></ul></ul> 443 HTML 444 445 $p->parse($text); 446 chomp($html); 447 is( $p->html, $html );
