--

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