| 286 |
if (@{$self->{char}}) { |
if (@{$self->{char}}) { |
| 287 |
$r = shift @{$self->{char}}; |
$r = shift @{$self->{char}}; |
| 288 |
} else { |
} else { |
| 289 |
|
no warnings 'substr'; |
| 290 |
|
## substr outside length warnings at the end of the string |
| 291 |
GETCHAR: { |
GETCHAR: { |
| 292 |
my $char = substr (${$self->{entity}->[-1]->{reptxt}}, |
my $char = substr (${$self->{entity}->[-1]->{reptxt}}, |
| 293 |
$self->{entity}->[-1]->{pos}, 1); |
$self->{entity}->[-1]->{pos}, 1); |
| 294 |
$self->{entity}->[-1]->{pos}++; |
$self->{entity}->[-1]->{pos}++; |
| 295 |
|
|
| 296 |
if (length $char) { |
if (defined $char and length $char) { |
| 297 |
$r = ord $char; |
$r = ord $char; |
| 298 |
if ($r == 0x000A) { |
if ($r == 0x000A) { |
| 299 |
$self->{entity}->[-1]->{line}++; |
$self->{entity}->[-1]->{line}++; |
Parent Directory
| 
Revision Log
| 
Patch