--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index e3038c20d85343421b326a5071e6a8acf0190ce2..4ad377872575c465254edb3e1480e017befbe67c 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -71,9 +71,9 @@ sub preinit {
 sub init {
 
     sub init_static {
-        my %vars = (
-            'banana' => 'sand',
-            );
+        my %vars = {
+            banana => 'sand',
+            };
         foreach (my ($path, @datum) = each %page) {
             last if $datum[0] == DYNAMIC_PAGE;
             syslog("info", "Marking Static $path");