--

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