--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index b680b9de8c3f22e91110152d49ff7266b50790db..ccc7895ba11fdb36349e888a1e41c0b979b1d849 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 {