--

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