--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index ce0be2501508a72b9ee4925f1539b1cf3ed4e555..f4adf61e1385f37795ed6a10dcd23a7a526898e4 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -52,16 +52,17 @@ sub Triple::main {
     my ($sitename, $version) = init();
     my $request = FCGI::Request();
 
-    our $vars = {
-        sitename => $sitename,
-        version  => $version,
-    };
-
     my @posts = (
         ("Baba", 1),
         ("shiet", 2),
         );
 
+    our $vars = {
+        sitename => $sitename,
+        version  => $version,
+        posts    => \@posts,
+    };
+
     while($request->Accept() >= 0) {
 
         my $cgi = CGI->new;