--- trunk/lib/Frey/Web.pm	2008/12/02 01:51:13	676
+++ trunk/lib/Frey/Web.pm	2008/12/02 02:01:23	677
@@ -319,18 +319,19 @@
 
 	# perl's backtrace
 	$error =~ s{at\s+(\S+)\s+line\s+(\d+)}
-		{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;
 
 	$error =~ s{(via (?:package)\s+"?)([\w:]+)("?)}
-		{$1<a target="$2" href="/$2">$2</a>$3}gsm;
+		{$1<a target="$2" href="/$2" title="introspect $2">$2</a>$3}gsm
+	|| # or anything that looks like "Class::Name"
+	$error =~ s{"(\w+(?:::\w+)+)"}
+		{"<a target="$1" href="/$1" title="introspect $1">$1</a>"}gsm;
 
 	# method error messages
-#	$error =~ s{(method ")(\w+)"}
-#		{$1<a target="/Frey::Shell::Grep?pattern=$2">$2</a>"}gsm; # FIXME replace with link to Frey::Introspect data
+	# FIXME replace with link to Frey::Introspect data
+	$error =~ s{(method ")(\w+)(" via)}
+		{$1<a target="$2" href="/Frey::Shell::Grep/as_markup?pattern=$2" title="grep $2">$2</a>$3}gsm;
 
-	# anything that looks like "Class::Name"
-	$error =~ s{"(\w+(?:::\w+)+)"}
-		{"<a target="$1" href="/$1">$1</a>"}gsm;
 
 	return $error;
 }