summaryrefslogtreecommitdiff
path: root/.library
diff options
context:
space:
mode:
authorThomas Schwinge <tschwinge@gnu.org>2007-11-08 00:59:14 +0100
committerThomas Schwinge <tschwinge@gnu.org>2007-11-08 01:00:10 +0100
commit9fd6a8ac202b18e83ee67d27e6d96f61ffe66510 (patch)
tree35467bf7da8ff92cfebbd9d714498dbdbb682b7d /.library
parent254bd4a9c0aa089175813c5a027bfd60c2ee00f3 (diff)
Use more consistent Perl syntax.
Diffstat (limited to '.library')
-rw-r--r--.library/IkiWiki/Plugin/copyright.pm10
-rw-r--r--.library/IkiWiki/Plugin/fill_empty_page.pm4
-rw-r--r--.library/IkiWiki/Plugin/license.pm10
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));