--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index b51bb0c994ff907832c05e19075928def31a172a..dc4dd26033edf957f51d6812500e946bbcc512a1 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -15,7 +15,7 @@ use Template;
 use Secrets;
 
 sub Triple::main() {
-    my $sitename = (getcwd() =~ s/.*\///);
+    my $sitename = ($tmp = getcwd() =~ s/.*\///);
     my $debug = 1 if $sitename =~ /^test\./;
     openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
 }