debug {SET ..} and <br> newlines in eval errors

databind
vitalif 2009-12-27 19:41:17 +00:00 committed by Vitaliy Filippov
parent 43097f997c
commit 954eb8cd44
1 changed files with 1 additions and 1 deletions

View File

@ -365,7 +365,7 @@ sub compile_code_fragment_set
}
push @{$self->{in}}, [ 'set', $1 ];
$self->{in_set}++;
return $self->varref($1) . ' = ' . ($t || 'eval { my $t = ""') . ";\n";
return $self->varref($1) . ' = ' . ($e || 'eval { my $t = ""') . ";\n";
}
# INCLUDE template.tpl