--

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