--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 1299ddecd2794883d59d281eafb4c974257e5053..e3038c20d85343421b326a5071e6a8acf0190ce2 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -71,7 +71,7 @@ sub preinit {
 sub init {
 
     sub init_static {
-        my $vars = (
+        my %vars = (
             'banana' => 'sand',
             );
         foreach (my ($path, @datum) = each %page) {