--

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