--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index f768bdccf4030528e758449bcdf77b685fbf60b1..41be588dd26350f74fc1b42b8f8bc83b3cf715a8 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -53,7 +53,7 @@ sub preinit {
 
     sub sitename {
         use Cwd;
-        $cwd = getcwd();
+        my $cwd = getcwd();
         $cwd =~ s/.*\///;
         return $cwd;
     }