diff options
Diffstat (limited to 'IkiWiki')
| -rw-r--r-- | IkiWiki/Plugin/po.pm | 4 | ||||
| -rw-r--r-- | IkiWiki/Plugin/rename.pm | 5 | ||||
| -rw-r--r-- | IkiWiki/Plugin/skeleton.pm.example | 6 |
3 files changed, 7 insertions, 8 deletions
diff --git a/IkiWiki/Plugin/po.pm b/IkiWiki/Plugin/po.pm index da5812ebd..b579d1f08 100644 --- a/IkiWiki/Plugin/po.pm +++ b/IkiWiki/Plugin/po.pm @@ -452,9 +452,9 @@ sub canremove ($$$) { return undef; } -sub canrename ($$@) { - my ($cgi, $session) = (shift, shift); +sub canrename (@) { my %params = @_; + my $session = $params{session}; if (istranslation($params{src})) { my $masterpage = masterpage($params{src}); diff --git a/IkiWiki/Plugin/rename.pm b/IkiWiki/Plugin/rename.pm index 37f643eef..b43c5282a 100644 --- a/IkiWiki/Plugin/rename.pm +++ b/IkiWiki/Plugin/rename.pm @@ -91,8 +91,9 @@ sub check_canrename ($$$$$$) { my $canrename; IkiWiki::run_hooks(canrename => sub { return if defined $canrename; - my $ret=shift->($q, $session, src => $src, srcfile => $srcfile, - dest => $dest, destfile => $destfile); + my $ret=shift->(cgi => $q, session => $session, + src => $src, srcfile => $srcfile, + dest => $dest, destfile => $destfile); if (defined $ret) { if ($ret eq "") { $canrename=1; diff --git a/IkiWiki/Plugin/skeleton.pm.example b/IkiWiki/Plugin/skeleton.pm.example index f5e401c05..ec5a0c725 100644 --- a/IkiWiki/Plugin/skeleton.pm.example +++ b/IkiWiki/Plugin/skeleton.pm.example @@ -191,10 +191,8 @@ sub canremove ($$$) { debug("skeleton plugin running in canremove"); } -sub canrename ($$$) { - my $page=shift; - my $cgi=shift; - my $session=shift; +sub canrename (@) { + my %params=@_; debug("skeleton plugin running in canrename"); } |