--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 8065cb3c4b138108325ef546dc5c6ab5a15d6d49..85deda391f4b6dceba134ae56a737acdddbad225 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{''};
     }
 }