Skip Menu |
 

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

Report information
The Basics
Id: 21393
Status: new
Priority: 0/
Queue: Text-WikiFormat

People
Owner: Nobody in particular
Requestors: derek [...] ximbiot.com
Cc:
AdminCc:

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

Attachments


Subject: Pass tags hash to extended links function.
Download (untitled) / with headers
text/plain 184b
This is useful, for instance if the link func wants to call format_line to format the link title. The attached patch is intended to be applied on top of the patches for 21269 & 21330.
Subject: text-wikiformat-tagstodelimfuncs.diff
Index: Changes =================================================================== RCS file: /cvsroot/Text-MediawikiFormat/Changes,v retrieving revision 1.3 diff -u -p -r1.3 Changes --- Changes 7 Sep 2006 20:58:41 -0000 1.3 +++ Changes 8 Sep 2006 16:39:11 -0000 @@ -1,4 +1,5 @@ 0.79 + - 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. - several nesting bugs fixed. Index: lib/Text/MediawikiFormat.pm =================================================================== RCS file: /cvsroot/Text-MediawikiFormat/lib/Text/MediawikiFormat.pm,v retrieving revision 1.5 diff -u -p -r1.5 MediawikiFormat.pm --- lib/Text/MediawikiFormat.pm 8 Sep 2006 14:58:28 -0000 1.5 +++ lib/Text/MediawikiFormat.pm 8 Sep 2006 16:39:11 -0000 @@ -418,15 +418,16 @@ sub find_extended_links while (my @pieces = find_innermost_balanced_pair ($text, $start, $end)) { my ($tag, $before, $after) = map { defined $_ ? $_ : '' } @pieces; - my $extended = $tags->{link}->( $tag, $opts ) || ''; + my $extended = $tags->{link}->( $tag, $opts, $tags ) + || ''; $text = $before . $extended . $after; } } else { # Regexp - $text =~ s/$tags->{extended_link_delimiters}/$tags->{link}->($1, - $opts)/ge; + $text =~ s/$tags->{extended_link_delimiters}/$tags->{link}->($1, $opts, + $tags)/ge; } return $text;


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.