| 1121 |
|
|
| 1122 |
my $r = ''; |
my $r = ''; |
| 1123 |
|
|
| 1124 |
if (defined $err->{line}) { |
if (defined $err->{token} and defined $err->{token}->{line}) { |
| 1125 |
|
if ($err->{token}->{column} > 0) { |
| 1126 |
|
$r = qq[<a href="#$input->{id_prefix}line-$err->{token}->{line}">Line $err->{token}->{line}</a> column $err->{token}->{column}]; |
| 1127 |
|
} else { |
| 1128 |
|
$err->{token}->{line} = $err->{token}->{line} - 1 || 1; |
| 1129 |
|
$r = qq[<a href="#$input->{id_prefix}line-$err->{token}->{line}">Line $err->{token}->{line}</a>]; |
| 1130 |
|
} |
| 1131 |
|
} elsif (defined $err->{line}) { |
| 1132 |
if ($err->{column} > 0) { |
if ($err->{column} > 0) { |
| 1133 |
$r = qq[<a href="#$input->{id_prefix}line-$err->{line}">Line $err->{line}</a> column $err->{column}]; |
$r = qq[<a href="#$input->{id_prefix}line-$err->{line}">Line $err->{line}</a> column $err->{column}]; |
| 1134 |
} else { |
} else { |
Parent Directory
| 
Revision Log
| 
Patch