--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index ae00560ac4888821ac1f515c8f96cf88cfd60709..87547607e7c29407e2aef06c665a3cf70f50ea69 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -61,7 +61,8 @@ sub Triple::main {
         [ "retard", 4 ],
         );
     my @threads = (
-        \@posts,
+        \@t1,
+        \@t2,
         );
 
     our $vars = {