- $lines[0] = $conn->{msg} . $lines[0] if exists $conn->{msg};
- push @lines, ' ' unless @lines;
+ if (@lines) {
+ $lines[0] = $conn->{msg} . $lines[0] if exists $conn->{msg};
+ } else {
+ $lines[0] = $conn->{msg} if exists $conn->{msg};
+ push @lines, '' unless @lines;
+ }