--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index c310aca868be50d016ecf6fafc273c95f9b6781a..14c609e9f5b0ac2adac686e227ea0f359893d39d 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -77,7 +77,7 @@ sub init {
         };
         foreach my $key (keys %page) {
             my @set = @{$page{$key}};
-            print Dumper $set[0], $set[1];
+            print Dumper $set;
             # last if $set->[0] == DYNAMIC_PAGE;
             # syslog("info", "Marking Static '$key'");
             #         $template->process($datum[1], $vars, \$_) or syslog("info", $template->error());