--

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