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 521b07f40897abf8f1f0567f20a41af93100099b..243b9892056028ea3cd289257c70274a54a410f6 100644 (file)
--- a/IkiWiki/Plugin/anonok.pm
+++ b/IkiWiki/Plugin/anonok.pm
@@ -3,17 +3,17 @@ 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
                plugin => {
        return
                plugin => {

-                       safe => 0,
+                       safe => 1,

                        rebuild => 0,
                },
                anonok_pagespec => {
                        rebuild => 0,
                },
                anonok_pagespec => {


@@ -24,9 +24,9 @@ sub getsetup () { #{{{
                        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;


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

-} #}}}
+}

 
 1
 
 1