--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 98102b12c73005d4e27a6f7e75a94769413e0ca7..f881a4826a807d984456ea71f08d739b4ce26221 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -168,11 +168,11 @@ sub Triple::main {
 }
 
 sub init {
-    my $sitename = Init::sitename();
-    Init::debug($sitename);
-    my $version = Init::version();
+    my $sitename = Triple::Init::sitename();
+    Triple::Init::debug($sitename);
+    my $version = Triple::Init::version();
     syslog("info", "<Triple $version>");
-    Init::static($sitename, $version);
+    Triple::Init::static($sitename, $version);
     return $sitename, $version;
 }