--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index f6ced78d55e2c3dca71bdc7daf3481f67b56bae0..38cd553250010b8d32fb762ca7cae5b4caa75bbd 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;
             # last if $set->[0] == DYNAMIC_PAGE;
             # syslog("info", "Marking Static '$key'");