--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 04e024ac55ec08fbb0241547c24b9b5a0c6d4d99..44606128fc62601a2bdaece712eeb6a40c91182a 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -76,7 +76,7 @@ sub init {
             banana => 'sand',
         };
         foreach my $key (keys %page) {
-            my @set = $page{$key}[0];
+            my @set = $page{$key};
             print Dumper @set;
             last if $set[0] == DYNAMIC_PAGE;
             syslog("info", "Marking Static '$key'");