--

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