319 |
|
|
320 |
# perl's backtrace |
# perl's backtrace |
321 |
$error =~ s{at\s+(\S+)\s+line\s+(\d+)} |
$error =~ s{at\s+(\S+)\s+line\s+(\d+)} |
322 |
{at <a target="editor" href="/editor+$1+$2">$1</a> line $2}gsm; |
{at <a target="editor" href="/editor+$1+$2" title="vi $1 +$2">$1</a> line $2}gsm; |
323 |
|
|
324 |
$error =~ s{(via (?:package)\s+"?)([\w:]+)("?)} |
$error =~ s{(via (?:package)\s+"?)([\w:]+)("?)} |
325 |
{$1<a target="$2" href="/$2">$2</a>$3}gsm; |
{$1<a target="$2" href="/$2" title="introspect $2">$2</a>$3}gsm |
326 |
|
|| # or anything that looks like "Class::Name" |
327 |
|
$error =~ s{"(\w+(?:::\w+)+)"} |
328 |
|
{"<a target="$1" href="/$1" title="introspect $1">$1</a>"}gsm; |
329 |
|
|
330 |
# method error messages |
# method error messages |
331 |
# $error =~ s{(method ")(\w+)"} |
# FIXME replace with link to Frey::Introspect data |
332 |
# {$1<a target="/Frey::Shell::Grep?pattern=$2">$2</a>"}gsm; # FIXME replace with link to Frey::Introspect data |
$error =~ s{(method ")(\w+)(" via)} |
333 |
|
{$1<a target="$2" href="/Frey::Shell::Grep/as_markup?pattern=$2" title="grep $2">$2</a>$3}gsm; |
334 |
|
|
|
# anything that looks like "Class::Name" |
|
|
$error =~ s{"(\w+(?:::\w+)+)"} |
|
|
{"<a target="$1" href="/$1">$1</a>"}gsm; |
|
335 |
|
|
336 |
return $error; |
return $error; |
337 |
} |
} |