#!/usr/bin/env perl
# gerrvim -- Gerrit review's comments preparation helper
-# Copyright (C) 2015 Sergey Matveev <stargrave@stargrave.org>
+# Copyright (C) 2015-2024 Sergey Matveev <stargrave@stargrave.org>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
+# the Free Software Foundation, version 3 of the License.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
$verbatim_block = 0;
};
};
-comment_done;
+comment_done if defined $filename;
+($main_message = buf2str) if !$blockn;
my %result = (comments => \%comments);
($result{message} = $main_message) if $main_message;