From b4c6dd48038da881074f6950f1e35d1f6eacc888 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 29 Oct 2015 04:20:54 +0100
Subject: fix running with perl-5.22

---
 po/bin/po2txt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/po/bin/po2txt b/po/bin/po2txt
index ba29001..d4e2ab5 100755
--- a/po/bin/po2txt
+++ b/po/bin/po2txt
@@ -146,7 +146,7 @@ sub read_texts
       $txt_miss{$_} = 1 unless exists $txt_list{$_};
     }
 
-    if(defined(%txt_miss) || defined(%txt_unknown) || defined(%txt_multi)) {
+    if(%txt_miss || %txt_unknown || %txt_multi) {
       print STDERR "$lang:\n";
       for (sort keys %txt_miss) {
         print STDERR "  missing: $_\n"
-- 
cgit v1.2.1