--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 990aae0bc64ad3392f2cb8c02fdd9c6e11266aea..1fc5012a5f5a487cbf14162cd31c5c4b6e0bbd0b 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -31,7 +31,8 @@ sub Triple::main() {
     }
     openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
     $debug = 1 if $sitename =~ /^test\./;
-    $version = version();
+
+    my $version = version();
 
     syslog("info", "Version $version");