From 9fd6a8ac202b18e83ee67d27e6d96f61ffe66510 Mon Sep 17 00:00:00 2001
From: Thomas Schwinge <tschwinge@gnu.org>
Date: Thu, 8 Nov 2007 00:59:14 +0100
Subject: Use more consistent Perl syntax.

---
 .library/IkiWiki/Plugin/copyright.pm       | 10 +++++-----
 .library/IkiWiki/Plugin/fill_empty_page.pm |  4 ++--
 .library/IkiWiki/Plugin/license.pm         | 10 +++++-----
 3 files changed, 12 insertions(+), 12 deletions(-)

(limited to '.library')

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));
-- 
cgit v1.2.3