… | … | ||
---|---|---|---|
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 |