--

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