--- trunk/lib/Frey/Web.pm 2008/11/16 00:37:34 350
+++ trunk/lib/Frey/Web.pm 2008/11/17 20:14:12 385
@@ -107,6 +107,7 @@
my $html = qq||
. $self->_head_html
. '' . ( $a->{title} || ref($self) ) . ''
+ . ''
. ( $a->{head} || '' )
. ''
. ( $a->{body} || '' )
@@ -128,7 +129,7 @@
sub error {
my ( $self, $error ) = @_;
warn $error;
- $error =~ s{\s+(\S+)\s+line\s+(\d+)}{ $1 line $2}gsm;
+ $error =~ s{at\s+(\S+)\s+line\s+(\d+)}{ $1 line $2}gsm;
return qq|$error
|;
}