--- trunk/lib/Frey/Web.pm 2008/12/02 01:49:49 674
+++ trunk/lib/Frey/Web.pm 2008/12/02 02:05:55 678
@@ -319,18 +319,22 @@
# perl's backtrace
$error =~ s{at\s+(\S+)\s+line\s+(\d+)}
- {at $1 line $2}gsm;
+ {at $1 line $2}gsm;
$error =~ s{(via (?:package)\s+"?)([\w:]+)("?)}
- {$1$2$3}gsm;
+ {$1$2$3}gsm
+ || # or anything that looks like "Class::Name"
+ $error =~ s{"(\w+(?:::\w+)+)"}
+ {"$1"}gsm;
# method error messages
-# $error =~ s{(method ")(\w+)"}
-# {$1$2"}gsm; # FIXME replace with link to Frey::Introspect data
+ # FIXME replace with link to Frey::Introspect data
+ $error =~ s{(method ")(\w+)(" via)}
+ {$1$2$3}gsm;
- # anything that looks like "Class::Name"
- $error =~ s{"(\w+(?:::\w+)+)"}
- {"$1"}gsm;
+ # link paths to editor
+ $error =~ s{(lib/[\w/]+\.pm)(\s+(\d+)\s+bytes)}
+ {$1}gsm;
return $error;
}