--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 3a4e987f8a2b0d5fd1f1765349cd67a7cfd2f7b8..2d2c682e8af1918a8c4119de2bc41248f17c0808 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -103,9 +103,9 @@ sub init {
     }
 
     my ($sitename, $version) = preinit();
-    exit;
 
     init_static($sitename, $version);
+    exit;
     return $sitename, $version;
 }