--

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