--

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