--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 6d6f18855cd1a36e567102d8846387f171781ebd..03ffd25aa26d307ed3827273e46248990c2ff387 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -81,22 +81,27 @@ sub preinit {
 sub init {
 
     sub init_static {
+        my ($sitename, $version) = @_;
         my $vars = {
-            banana => 'sand',
+            # boards       => \@Triple::boards,
+            # titles       => \%Triple::titles,
+            # descriptions => \%Triple::descriptions,
+            sitename     => $sitename,
+            version      => $version,
         };
         foreach my $key (keys %page) {
             my @set = @{$page{$key}};
             next if $set[0] != STATIC_PAGE;
             syslog("info", "Marking Static '$key'");
-            local $_;
-            $template->process($set[1], $vars, \$_) or syslog("info", $template->error());
-            $static{$key} = $_;
+            my $temporary;
+            $template->process($set[1], $vars, \$temporary) or syslog("info", $template->error());
+            $static{$key} = $temporary;
         }
     }
 
     my ($sitename, $version) = preinit();
 
-    init_static();
+    init_static($sitename, $version);
     return $sitename, $version;
 }