--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 6045a3795f4d3679cacec56b5e0d968a3daffcf2..458e12ce5a6c78196501f2c77c111113d72459b1 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -53,8 +53,8 @@ sub Triple::main {
     my $request = FCGI::Request();
 
     my @posts = (
-        "--",
-        "--",
+        [ "Post", 1 ],
+        [ "Sneed", 2 ],
         );
 
     our $vars = {