--

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