146 |
$log->logdie("expected blank like in ",$arg->{path}, " +$.: $line") unless ( $line eq '' ); |
$log->logdie("expected blank like in ",$arg->{path}, " +$.: $line") unless ( $line eq '' ); |
147 |
} elsif ( $line eq 'EF' ) { |
} elsif ( $line eq 'EF' ) { |
148 |
last; |
last; |
149 |
|
} elsif ( $line =~ m{^(\S\S)\s*$} ) { |
150 |
|
warn "# $arg->{path} +$. empty |$line|\n"; |
151 |
} else { |
} else { |
152 |
$log->logdie("can't parse +$. $arg->{path} : $line"); |
$log->logdie("can't parse +$. $arg->{path} |$line|"); |
153 |
} |
} |
154 |
|
|
155 |
if ( defined $v ) { |
if ( defined $v ) { |