--- trunk/lib/Frey/Web.pm 2008/11/18 13:57:52 410 +++ trunk/lib/Frey/Web.pm 2008/11/18 16:39:13 417 @@ -171,6 +171,7 @@ $error .= " at $filename line $line" if $error !~ m{ at }; warn "WARN: $error\n"; $error =~ s{at\s+(\S+)\s+line\s+(\d+)}{at $1 line $2}gsm; + $error =~ s{(via package ")([\w:]+)(")}{$1$2$3}gsm; return qq|
$error
|; }