$mode=0;
while (<STDIN>) {
if ($mode==0) {
- if (/^$/) {
+ if (/^$/) {
$mode=1;
} else {
print;
elsif ($mode==2) {
if (/^(#?[0-9]| )/) {
push @l,$_ if /^#/;
- $l[$#l] .= $_ if /^ /;
+ $l[$#l] .= $_ if @l && /^ /;
} else {
$mode=0;
if (/: fatal error in /) {