* Make testpagespec more robust, including checking for missing/bad

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

diff --git a/IkiWiki/Plugin/testpagespec.pm b/IkiWiki/Plugin/testpagespec.pm
index 4966f4e10b1a01d441cb45a4fb75205edaf4fe74..a0bb2ff3128e4f9a5d3853f5006aa0d76a074004 100644 (file)
--- a/IkiWiki/Plugin/testpagespec.pm
+++ b/IkiWiki/Plugin/testpagespec.pm
@@ -12,6 +12,12 @@ sub import { #{{{
 sub preprocess (@) { #{{{
        my %params=@_;
        
+       foreach my $param (qw{match pagespec}) {
+               if (! exists $params{$param}) {
+                       return "[[testpagespec missing $param parameter]]";
+               }
+       }
+
        add_depends($params{page}, $params{pagespec});
        
        my $ret=pagespec_match($params{match}, $params{pagespec}, 
@@ -19,6 +25,9 @@ sub preprocess (@) { #{{{
        if ($ret) {
                return "match: $ret";
        }
+       elsif (! defined $ret) {
+               return "match failed: $@";
+       }
        else {
                return "no match: $ret";
        }