--- 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 $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;
return $error;
}