--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 62db717c2fcf0881745f4c72e339a0fac3770229..fb9a732857c45bcb76169b66ac13d57adbe0c959 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -86,6 +86,7 @@ sub init {
     my ($sitename, $version) = preinit();
 
     init_static();
+    return $sitename, $version;
 }
 
 1;