po: avoid warnings and possible bugs with nested named subroutines

[git.ikiwiki.info.git] / IkiWiki / Plugin / anonok.pm

diff --git a/IkiWiki/Plugin/anonok.pm b/IkiWiki/Plugin/anonok.pm
index d5e409117e947cb202bbe49beb778278ead9a5cc..243b9892056028ea3cd289257c70274a54a410f6 100644 (file)
--- a/IkiWiki/Plugin/anonok.pm
+++ b/IkiWiki/Plugin/anonok.pm
@@ -3,27 +3,30 @@ package IkiWiki::Plugin::anonok;
 
 use warnings;
 use strict;
 
 use warnings;
 use strict;

-use IkiWiki 2.00;
+use IkiWiki 3.00;

 
 

-sub import { #{{{
+sub import {

        hook(type => "getsetup", id => "anonok", call => \&getsetup);
        hook(type => "canedit", id => "anonok", call => \&canedit);
        hook(type => "getsetup", id => "anonok", call => \&getsetup);
        hook(type => "canedit", id => "anonok", call => \&canedit);

-} # }}}
+}

 
 

-sub getsetup () { #{{{
+sub getsetup () {

        return
        return

+               plugin => {
+                       safe => 1,
+                       rebuild => 0,
+               },

                anonok_pagespec => {
                anonok_pagespec => {

-                       type => "string",
+                       type => "pagespec",

                        example => "*/discussion",
                        description => "PageSpec to limit which pages anonymous users can edit",
                        example => "*/discussion",
                        description => "PageSpec to limit which pages anonymous users can edit",

-                       description_html => htmllink("", "", "ikiwiki/PageSpec", noimageinline => 1).
-                               " to limit which pages anonymous users can edit",
+                       link => "ikiwiki/PageSpec",

                        safe => 1,
                        rebuild => 0,
                },
                        safe => 1,
                        rebuild => 0,
                },

-} #}}}
+}

 
 

-sub canedit ($$$) { #{{{
+sub canedit ($$$) {

        my $page=shift;
        my $cgi=shift;
        my $session=shift;
        my $page=shift;
        my $cgi=shift;
        my $session=shift;


@@ -42,6 +45,6 @@ sub canedit ($$$) { #{{{
        else {
                return "";
        }
        else {
                return "";
        }

-} #}}}
+}

 
 1
 
 1