--

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