--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index e65bc6f700cf0ea41bde3c08faeee7d9a598e685..413f4fec437be99d96cba0fd33e5061e1fda9431 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -74,17 +74,18 @@ sub init {
     sub init_static {
         my $vars = {
             banana => 'sand',
-            };
-        foreach (my ($path, @datum) = each %page) {
-            print Dumper @datum;
+        };
+        foreach my $key (keys %hash) {
+            @set = $hash{$key};
+            print Dumper @set;
+        }
             # if ($datum[0] == DYNAMIC_PAGE) {
-                # syslog("info", "Marking Dynamic '$path'");
-                # next;
+            # syslog("info", "Marking Dynamic '$path'");
+            # next;
             # }
             # syslog("info", "Marking Static '$path'");
-    #         $template->process($datum[1], $vars, \$_) or syslog("info", $template->error());
-    #         $static{$path} = $_;
-        }
+            #         $template->process($datum[1], $vars, \$_) or syslog("info", $template->error());
+            #         $static{$path} = $_;
     }
 
     my ($sitename, $version) = preinit();