Give diagnostics for template processing problems via WRE::File.

perlDreamer · perlDreamer · commit f56453aa72f3 · 2012-01-06T13:14:01.000-08:00
diff --git a/wre/lib/WRE/File.pm b/wre/lib/WRE/File.pm
@@ -348,7 +348,9 @@ sub processTemplate {
 
     # process the template
     my $output = undef;
-    $template{$refId}->process($input, $var, \$output);
+    unless ($template{$refId}->process($input, $var, \$output)) {
+        warn $template{$refId}->error;
+    }
     return \$output;
 }
 

Original file line number	Diff line number	Diff line change
`@@ -348,7 +348,9 @@ sub processTemplate {`
`348`	`348`
`349`	`349`	`# process the template`
`350`	`350`	`my $output = undef;`
`351`		`- $template{$refId}->process($input, $var, \$output);`
	`351`	`+ unless ($template{$refId}->process($input, $var, \$output)) {`
	`352`	`+ warn $template{$refId}->error;`
	`353`	`+ }`
`352`	`354`	`return \$output;`
`353`	`355`	`}`
`354`	`356`