--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index ee101eb7e0e05bbb8ae463206f3211976c87d03c..99480f3bf840eda6d331368bf150eca32235671e 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -46,9 +46,8 @@ sub Triple::main {
             -charset      => 'UTF-8',
             );
 
-        exit;
-
         print %static{$path};
+        exit;
     }
 }