--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index a25d0e51b5a0d2c40be3ca1578e228b5183a7abc..f768bdccf4030528e758449bcdf77b685fbf60b1 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -53,9 +53,9 @@ sub preinit {
 
     sub sitename {
         use Cwd;
-        $_ = getcwd();
-        s/.*\///;
-        $_;
+        $cwd = getcwd();
+        $cwd =~ s/.*\///;
+        return $cwd;
     }
 
     sub debug {
@@ -93,7 +93,7 @@ sub init {
             my @set = @{$page{$key}};
             next if $set[0] != STATIC_PAGE;
             syslog("info", "Marking Static '$key'");
-            # $vars->{"uri"} = "$key";
+            $vars->{"uri"} = "$key";
             my $temporary;
             $template->process($set[1], $vars, \$temporary) or syslog("info", $template->error());
             $static{$key} = $temporary;