Skip Menu |

This queue is for tickets about the Text-WikiFormat CPAN distribution.

Report information
The Basics
Id: 4700
Status: open
Priority: 0/
Queue: Text-WikiFormat

People
Owner: Nobody in particular
Requestors:
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Either absolute_links does not seem to work, or I really don't understand it. Shouldn't [http://www.iki.fi/|Iki] convert to <a href="http://www.iki.fi/">Iki</a> ? $utf8_data = Text::WikiFormat::format ($utf8_data, {}, { extended => 1, implicit_links => 0, absolute_links => 1, prefix => $non_abs_wiki});
Using 0.71, Linux alpha PCA56, perl 5.6.1.
This works in 0.78 + my patches for 21269, 21330, & 21393, as the attached patch demonstrates with a new test. It may work before applying those patches - I didn't try.
Index: Changes =================================================================== RCS file: /cvsroot/Text-MediawikiFormat/Changes,v retrieving revision 1.4 diff -u -p -r1.4 Changes --- Changes 8 Sep 2006 16:43:09 -0000 1.4 +++ Changes 8 Sep 2006 16:55:07 -0000 @@ -1,4 +1,5 @@ 0.79 + - additional tests added. - the $tags{link} func is now passed the tags hash. - extended_link_delimiters may now be specified as a regex. - merge_hash() now copies hashes. Index: t/explicit.t =================================================================== RCS file: /cvsroot/Text-MediawikiFormat/t/explicit.t,v retrieving revision 1.3 diff -u -p -r1.3 explicit.t --- t/explicit.t 8 Sep 2006 14:58:28 -0000 1.3 +++ t/explicit.t 8 Sep 2006 16:55:07 -0000 @@ -5,21 +5,24 @@ BEGIN { chdir 't' if -d 't' } use strict; use warnings; -use Test::More tests => 6; +use Test::More tests => 7; use Text::MediawikiFormat; my $wikitext =<<WIKI; [Ordinary extended link] -[[Usemod extended link]] +[http://nowhere.com|explicit URI] +[[Usemod extended link]] WIKI my $htmltext = Text::MediawikiFormat::format($wikitext, {}, { extended => 1 } ); like( $htmltext, qr!Ordinary extended link</a>!m, 'extended links rendered correctly with default delimiters' ); +like( $htmltext, qr!"http://nowhere\.com">explicit URI</a>!m, + 'explicit URIs rendered correctly with default delimiters' ); # Redefine the delimiters to the same thing again. my %tags = (