--

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