--- trunk/lib/Frey/Web.pm 2008/11/18 02:14:40 398 +++ trunk/lib/Frey/Web.pm 2008/11/18 12:02:57 407 @@ -170,7 +170,7 @@ my ($package, $filename, $line) = caller; $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{at\s+(\S+)\s+line\s+(\d+)}{at $1 line $2}gsm; return qq|
$error
|; }