Suppress warning about uninitialized value if directives look like [[!foo]]

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

diff --git a/IkiWiki.pm b/IkiWiki.pm
index 5a05a0f73ddf68e8bb624ac7ca74d2965dab9277..e0793b5faa4c362a112cb86e9d6abd06544240b3 100644 (file)
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -844,7 +844,8 @@ sub preprocess ($$$;$$) { #{{{
                }sx;
        }
 
-       $content =~ s{$regex}{$handle->($1, $2, $3, $4)}eg;
+       # $4 can be undef if the directive was [[!foo]]
+       $content =~ s{$regex}{$handle->($1, $2, $3, ($4 or ""))}eg;
        return $content;
 } #}}}