| 714 |
GETCHAR: { |
GETCHAR: { |
| 715 |
no warnings 'closed'; # getc() on closed filehandle warning |
no warnings 'closed'; # getc() on closed filehandle warning |
| 716 |
my $ent = $self->{entity}->[-1]; |
my $ent = $self->{entity}->[-1]; |
| 717 |
my $char = getc $ent->{fh}; |
my $char = $ent->{fh}->getc; |
| 718 |
|
|
| 719 |
if (defined $char and length $char) { |
if (defined $char and length $char) { |
| 720 |
$ent->{pos}++; |
$ent->{pos}++; |
| 723 |
$ent->{line}++; |
$ent->{line}++; |
| 724 |
$ent->{column} = 1; |
$ent->{column} = 1; |
| 725 |
} elsif ($r == 0x000D) { |
} elsif ($r == 0x000D) { |
| 726 |
my $next_char = getc $ent->{fh}; |
my $next_char = $ent->{fh}->getc; |
| 727 |
if ($next_char eq "\x0A") { |
if ($next_char eq "\x0A") { |
| 728 |
if ($ent->{is_external_entity}) { |
if ($ent->{is_external_entity}) { |
| 729 |
$ent->{pos}++; |
$ent->{pos}++; |
Parent Directory
| 
Revision Log
| 
Patch