diff options
| -rw-r--r-- | .library/IkiWiki/Plugin/copyright.pm | 10 | ||||
| -rw-r--r-- | .library/IkiWiki/Plugin/fill_empty_page.pm | 4 | ||||
| -rw-r--r-- | .library/IkiWiki/Plugin/license.pm | 10 |
3 files changed, 12 insertions, 12 deletions
diff --git a/.library/IkiWiki/Plugin/copyright.pm b/.library/IkiWiki/Plugin/copyright.pm index 6497547f..2806e9ef 100644 --- a/.library/IkiWiki/Plugin/copyright.pm +++ b/.library/IkiWiki/Plugin/copyright.pm @@ -43,17 +43,17 @@ sub import sub pagetemplate (@) { my %params = @_; - my $page = $params {page}; - my $destpage = $params {destpage}; + my $page = $params{page}; + my $destpage = $params{destpage}; - my $template = $params {template}; + my $template = $params{template}; if ($template->query (name => "copyright") && - ! defined $template->param('copyright')) + ! defined $template->param ('copyright')) { my $content; my $copyright_page = bestlink ($page, "copyright") || return; - my $copyright_file = $pagesources {$copyright_page} || return; + my $copyright_file = $pagesources{$copyright_page} || return; #my $pagetype = pagetype ($copyright_file); # Check if ``$pagetype eq 'html'''? $content = readfile (srcfile ($copyright_file)); diff --git a/.library/IkiWiki/Plugin/fill_empty_page.pm b/.library/IkiWiki/Plugin/fill_empty_page.pm index b2ce1fc0..e10aff21 100644 --- a/.library/IkiWiki/Plugin/fill_empty_page.pm +++ b/.library/IkiWiki/Plugin/fill_empty_page.pm @@ -37,7 +37,7 @@ sub import sub formbuilder_setup { my %params = @_; - my $form = $params {form}; + my $form = $params{form}; my $page = $form->field ("page"); return if $form->title ne "editpage"; @@ -47,7 +47,7 @@ sub formbuilder_setup # This is obviously not the last conclusion of wisdom. my $empty_page_page = bestlink ($page, "empty_page") || return; - my $empty_page_file = $pagesources {$empty_page_page} || return; + my $empty_page_file = $pagesources{$empty_page_page} || return; my $empty_page_type = pagetype ($empty_page_file); return unless defined $empty_page_type; diff --git a/.library/IkiWiki/Plugin/license.pm b/.library/IkiWiki/Plugin/license.pm index 47fb34d8..da337f29 100644 --- a/.library/IkiWiki/Plugin/license.pm +++ b/.library/IkiWiki/Plugin/license.pm @@ -43,17 +43,17 @@ sub import sub pagetemplate (@) { my %params = @_; - my $page = $params {page}; - my $destpage = $params {destpage}; + my $page = $params{page}; + my $destpage = $params{destpage}; - my $template = $params {template}; + my $template = $params{template}; if ($template->query (name => "license") && - ! defined $template->param('license')) + ! defined $template->param ('license')) { my $content; my $license_page = bestlink ($page, "license") || return; - my $license_file = $pagesources {$license_page} || return; + my $license_file = $pagesources{$license_page} || return; #my $pagetype = pagetype ($license_file); # Check if ``$pagetype eq 'html'''? $content = readfile (srcfile ($license_file)); |