On 10/02/2017 10:25 AM, Markus Armbruster wrote: > Signed-off-by: Markus Armbruster <[email protected]> > --- > scripts/texi2pod.pl | 11 +++++++++-- > 1 file changed, 9 insertions(+), 2 deletions(-)
My perl is a bit rusty, but I think I can handle this one.
>
> diff --git a/scripts/texi2pod.pl b/scripts/texi2pod.pl
> index 39ce584a32..2171f8b819 100755
> --- a/scripts/texi2pod.pl
> +++ b/scripts/texi2pod.pl
> @@ -85,6 +85,13 @@ if (defined $out) {
>
> while(defined $inf) {
> while(<$inf>) {
> + # Verbatim environment
> + if (defined $endw and $endw eq "verbatim"
> + and not (/^\@end\s+([a-z]+)/ and $1 eq $endw)) {
You anchored to the beginning, but not the end, of the line; that means
you accept '@end verbatim garbage' as an end marker. Worth adding $?
If that's the only change, I'm okay with adding:
Reviewed-by: Eric Blake <[email protected]>
--
Eric Blake, Principal Software Engineer
Red Hat, Inc. +1-919-301-3266
Virtualization: qemu.org | libvirt.org
signature.asc
Description: OpenPGP digital signature
