diff options
author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2007-04-27 08:34:09 +0000 |
---|---|---|
committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2007-04-27 08:34:09 +0000 |
commit | 8fa8bd0adb034f05131648dcb7b14011672649e8 (patch) | |
tree | ec95c4ffe3c3990bb322aafdb81071836c9af49a /IkiWiki/Plugin/testpagespec.pm | |
parent | f8a7fb227b59463b37180b1e525c5d19ec0e43cb (diff) |
the kind of perl code that can only be written at 4:30 am
(Get a good message when a PageSpec fails due to a negated success by
creating success objects with a reason string, which morph into failure
objects when negated.)
Diffstat (limited to 'IkiWiki/Plugin/testpagespec.pm')
-rw-r--r-- | IkiWiki/Plugin/testpagespec.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/IkiWiki/Plugin/testpagespec.pm b/IkiWiki/Plugin/testpagespec.pm index 56dc03cef..4966f4e10 100644 --- a/IkiWiki/Plugin/testpagespec.pm +++ b/IkiWiki/Plugin/testpagespec.pm @@ -16,8 +16,12 @@ sub preprocess (@) { #{{{ my $ret=pagespec_match($params{match}, $params{pagespec}, location => $params{page}); - return $ret if ! $ret; - return "the pagespec matches"; + if ($ret) { + return "match: $ret"; + } + else { + return "no match: $ret"; + } } # }}} 1 |