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

(cherry picked from commit cf58eefaa56eb17c227d97d129bf95e3dab54fd3)

diff --git a/IkiWiki.pm b/IkiWiki.pm
index 2815a5c4cff663cbf6ab71b0e5ec970e1db7305c..051c11b43c2633a66bee8aa9a4f11b1c7ed24fc9 100644 (file)
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -1176,7 +1176,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;
 } #}}}