| … | … | ||
|---|---|---|---|
| 312 | my ($more, $prev); | 312 | my ($more, $prev); |
| 313 | 313 | ||
| 314 | open my $fh, "<:raw:perlio:utf8", $path | 314 | open my $fh, "<:raw:perlio:utf8", $path |
| 315 | or Carp::croak "$path: $!"; | 315 | or Carp::croak "$path: $!"; |
| 316 | 316 | ||
| 317 | binmode $fh; | 317 | # binmode $fh; |
| 318 | 318 | ||
| 319 | my $parse_block; $parse_block = sub { | 319 | my $parse_block; $parse_block = sub { |
| 320 | my %arc = @_; | 320 | my %arc = @_; |
| 321 | 321 | ||
| 322 | while (<$fh>) { | 322 | while (<$fh>) { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |