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/IkiWiki/Plugin/license.pm | |
| parent | 254bd4a9c0aa089175813c5a027bfd60c2ee00f3 (diff) | |
| download | web-9fd6a8ac202b18e83ee67d27e6d96f61ffe66510.tar.gz web-9fd6a8ac202b18e83ee67d27e6d96f61ffe66510.tar.bz2 web-9fd6a8ac202b18e83ee67d27e6d96f61ffe66510.zip | |
Use more consistent Perl syntax.
Diffstat (limited to '.library/IkiWiki/Plugin/license.pm')
| -rw-r--r-- | .library/IkiWiki/Plugin/license.pm | 10 |
1 files changed, 5 insertions, 5 deletions
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)); |