--

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