From f3fb3902a02d6c0d9f7157248aa8a4edabf1ebd8 Mon Sep 17 00:00:00 2001
From: Colin Watson <cjwatson@canonical.com>
Date: Wed, 11 Apr 2012 09:58:34 +0100
Subject: [PATCH] po/bin/po2txt: Fix warning with Perl >= 5.12.

---
 debian/changelog | 1 +
 po/bin/po2txt    | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/debian/changelog b/debian/changelog
index 51fc124..2d90ea8 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,6 +1,7 @@
 gfxboot-theme-ubuntu (0.13.0) UNRELEASED; urgency=low
 
   * Update translations from Launchpad.
+  * po/bin/po2txt: Fix warning with Perl >= 5.12.
 
  -- Colin Watson <cjwatson@ubuntu.com>  Wed, 11 Apr 2012 09:41:22 +0100
 
diff --git a/po/bin/po2txt b/po/bin/po2txt
index c9fca4d..7d39dc6 100755
--- a/po/bin/po2txt
+++ b/po/bin/po2txt
@@ -136,6 +136,7 @@ sub read_texts
       }
     }
     close F;
+    my (%txt_list, %txt_miss, %txt_unknown, %txt_multi);
     for (@txts) {
       $txt_list{$_}++;
       $txt_multi{$_} = 1 if $txt_list{$_} > 1;
@@ -147,7 +148,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"