--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 606c737345e5768e37929315ff1111df4f9502e1..2a21f5679a2a7d2a1e2a7e76d8d83931ad7b435f 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -49,7 +49,7 @@ sub Triple::main {
             -charset      => 'UTF-8',
             );
 
-        $page = %static{$vars->{uri}};
+        my $page = %static{$vars->{uri}};
         if (not $page) {
 
             $page = %static{''};