don't crash when the default in .define is not initialized on .call

diff --git a/site/cgi-bin/modules/Squirrel/Template/Processor.pm b/site/cgi-bin/modules/Squirrel/Template/Processor.pm
index 30de50bedd5db6b298aeebed1dd24160141256e0..0d921ffe400676e17dc838a07c4523b0b67e1fa4 100644 (file)
--- a/site/cgi-bin/modules/Squirrel/Template/Processor.pm
+++ b/site/cgi-bin/modules/Squirrel/Template/Processor.pm
@@ -171,6 +171,12 @@ sub _process_define {
   return;
 }
 
+sub _expr_died {
+  my ($self, $node, $die, $ctx) = @_;
+
+  return $node->[NODE_ORIG];
+}
+
 sub _process_call {
   my ($self, $node) = @_;
 
@@ -205,7 +211,9 @@ sub _process_call {
          my ($name_expr, $value_expr)= @$entry;
          my $name = $self->[EVAL]->process($name_expr);
          unless (exists $args{$name}) {
-           my $value = $self->[EVAL]->process($value_expr);
+           my $value;
+           eval { $value = $self->[EVAL]->process($value_expr); 1 }
+             or return $self->_expr_died($node, $@, $ctx . " value for $name");
            $self->[TMPLT]->set_var($name, $value);
          }
        }