--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index d98592f3c1139c3eae88f8772759c0e73c2246d4..56e4b4fe18f71ea60fd57dcda71ae8303ce7e62d 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};
+            my @set = @{$page{$key}};
             print Dumper @set, $set[0], $set[1];
             # last if $set->[0] == DYNAMIC_PAGE;
             # syslog("info", "Marking Static '$key'");