171 |
$error .= " at $filename line $line" if $error !~ m{ at }; |
$error .= " at $filename line $line" if $error !~ m{ at }; |
172 |
warn "WARN: $error\n"; |
warn "WARN: $error\n"; |
173 |
$error =~ s{at\s+(\S+)\s+line\s+(\d+)}{at <a target="editor" href="/editor+$1+$2">$1</a> line $2}gsm; |
$error =~ s{at\s+(\S+)\s+line\s+(\d+)}{at <a target="editor" href="/editor+$1+$2">$1</a> line $2}gsm; |
174 |
|
$error =~ s{(via package ")([\w:]+)(")}{$1<a target="editor" href="/editor+$2+1">$2</a>$3}gsm; |
175 |
return qq|<pre class="frey-error">$error</pre>|; |
return qq|<pre class="frey-error">$error</pre>|; |
176 |
} |
} |
177 |
|
|