--

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