--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index bc3afd954e4eb9fafc50228a0b99d0d614b84803..b509cfaafbaf84801452e4dda731e0c8ef22a079 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -44,7 +44,7 @@ sub preinit {
 
     sub sitename {
         use Cwd;
-        $sitename = getcwd();
+        my $sitename = getcwd();
         $sitename =~ s/.*\///;
     }