diff options
| author | Thomas Schwinge <tschwinge@gnu.org> | 2007-11-08 00:59:14 +0100 |
|---|---|---|
| committer | Thomas Schwinge <tschwinge@gnu.org> | 2007-11-08 01:00:10 +0100 |
| commit | 9fd6a8ac202b18e83ee67d27e6d96f61ffe66510 (patch) | |
| tree | 35467bf7da8ff92cfebbd9d714498dbdbb682b7d /.library | |
| parent | 254bd4a9c0aa089175813c5a027bfd60c2ee00f3 (diff) | |
Use more consistent Perl syntax.
Diffstat (limited to '.library')
| -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)); |