- push @{$comments{$filename}}, {
- range => {start_line => $linebgn, end_line => $lineend},
- message => buf2str,
+ my %c = ("message" => buf2str);
+ if ($lineend - $linebgn == 1) {
+ $c{"line"} = $linebgn;
+ } else {
+ $c{"range"} = {start_line => $linebgn, end_line => $lineend};