--

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