--

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