--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 4ad377872575c465254edb3e1480e017befbe67c..dc404fb9b2e8ffc800f3967b391fd5c95b077af2 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) {