I'm not redefining any subs after all, don't prevent those warnings.

[git.ikiwiki.info.git] / doc / bugs / Problem_with_toc.pm_plug-in.mdwn

diff --git a/doc/bugs/Problem_with_toc.pm_plug-in.mdwn b/doc/bugs/Problem_with_toc.pm_plug-in.mdwn
index f756bf8f590ddcac609a6c71c0d0bd07353cb758..6be5f89b5b9ce62b55d0b922924d5646b435eda9 100644 (file)
--- a/doc/bugs/Problem_with_toc.pm_plug-in.mdwn
+++ b/doc/bugs/Problem_with_toc.pm_plug-in.mdwn
@@ -5,11 +5,11 @@ Here is a patch for toc.pm for producing non-empty 'a' elements.
 > Thanks for the patch, but I already fixed this in 2.4 using a different
 > approach. I think your patch is slightly broken, an anchor tag isn't
 > really meant to enclose all the html it anchors to, but just be stuck in
 > Thanks for the patch, but I already fixed this in 2.4 using a different
 > approach. I think your patch is slightly broken, an anchor tag isn't
 > really meant to enclose all the html it anchors to, but just be stuck in

-> front of it. --[[Joey]] [[tag done]]
+> front of it. --[[Joey]] [[!tag done]]

 
     --- IkiWiki/Plugin/toc.pm.orig     Thu Jun  7 11:53:53 2007
     +++ IkiWiki/Plugin/toc.pm  Thu Jun  7 13:00:00 2007
 
     --- IkiWiki/Plugin/toc.pm.orig     Thu Jun  7 11:53:53 2007
     +++ IkiWiki/Plugin/toc.pm  Thu Jun  7 13:00:00 2007

-    @@ -47,7 +47,7 @@ sub format (@) { #{{{
+    @@ -47,7 +47,7 @@ sub format (@) {

                if ($tagname =~ /^h(\d+)$/i) {
                        my $level=$1;
                        my $anchor="index".++$anchors{$level}."h$level";
                if ($tagname =~ /^h(\d+)$/i) {
                        my $level=$1;
                        my $anchor="index".++$anchors{$level}."h$level";


@@ -18,7 +18,7 @@ Here is a patch for toc.pm for producing non-empty 'a' elements.
        
                        # Take the first header level seen as the topmost level,
                        # even if there are higher levels seen later on.
        
                        # Take the first header level seen as the topmost level,
                        # even if there are higher levels seen later on.

-    @@ -90,6 +90,16 @@ sub format (@) { #{{{
+    @@ -90,6 +90,16 @@ sub format (@) {

                                        "</a>\n";
                                $p->handler(text => undef);
                        }, "dtext");
                                        "</a>\n";
                                $p->handler(text => undef);
                        }, "dtext");