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

(cherry picked from commit cf58eefaa56eb17c227d97d129bf95e3dab54fd3)
master
Simon McVittie 2008-08-03 16:16:24 +01:00 committed by Joey Hess
parent e48f8ff8a9
commit 4c2f46e3fa
1 changed files with 2 additions and 1 deletions

View File

@ -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;
} #}}}