--

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