more idiomatic perl

[git.ikiwiki.info.git] / IkiWiki / Plugin / highlight.pm

diff --git a/IkiWiki/Plugin/highlight.pm b/IkiWiki/Plugin/highlight.pm
index 9bdde85ae3bfd725ee83265b923eb445021a15c4..e517ac5c06aa425771dcac7256a8e3127da8d3bb 100644 (file)
--- a/IkiWiki/Plugin/highlight.pm
+++ b/IkiWiki/Plugin/highlight.pm
@@ -23,6 +23,7 @@ sub getsetup () {
                plugin => {
                        safe => 1,
                        rebuild => 1, # format plugin
                plugin => {
                        safe => 1,
                        rebuild => 1, # format plugin

+                       section => "format",

                },
                tohighlight => {
                        type => "string",
                },
                tohighlight => {
                        type => "string",


@@ -79,7 +80,7 @@ my %highlighters;
 
 # Parse highlight's config file to get extension => language mappings.
 sub read_filetypes () {
 
 # Parse highlight's config file to get extension => language mappings.
 sub read_filetypes () {

-       open (IN, $filetypes);
+       open (IN, $filetypes) || error("$filetypes: $!");

        while (<IN>) {
                chomp;
                if (/^\$ext\((.*)\)=(.*)$/) {
        while (<IN>) {
                chomp;
                if (/^\$ext\((.*)\)=(.*)$/) {