--

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