[perl-Encode-JP-Mobile] Fix a warning and disable a test to pass with perl 5.18

[Petr Pisar]

commit 39e3345f09360a2a2d68acefed7ec173c250682a
Author: Petr Písař <ppisar at redhat.com>
Date:   Tue Sep 3 16:51:30 2013 +0200

    Fix a warning and disable a test to pass with perl 5.18

 ...Mobile-0.30-Disable-a-test-for-kanji-name.patch |   33 ++++++++++++++++++++
 ...obile-0.30-Fix-warnings-counting-for-5.18.patch |   24 ++++++++++++++
 perl-Encode-JP-Mobile.spec                         |    7 ++++
 3 files changed, 64 insertions(+), 0 deletions(-)
---
diff --git a/Encode-JP-Mobile-0.30-Disable-a-test-for-kanji-name.patch b/Encode-JP-Mobile-0.30-Disable-a-test-for-kanji-name.patch
new file mode 100644
index 0000000..e065f4a
--- /dev/null
+++ b/Encode-JP-Mobile-0.30-Disable-a-test-for-kanji-name.patch
@@ -0,0 +1,33 @@
+From 1a0baf7574e384f5f2b36e5dc57f685add01aa51 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar at redhat.com>
+Date: Tue, 3 Sep 2013 16:43:32 +0200
+Subject: [PATCH 2/2] Disable a test for kanji name
+
+It's not possible to access a Encode::JP::Mobile character by kanji name.
+Let's disable the test for now.
+
+<https://rt.cpan.org/Public/Bug/Display.html?id=87393>
+---
+ t/charnames.t | 6 +++++-
+ 1 file changed, 5 insertions(+), 1 deletion(-)
+
+diff --git a/t/charnames.t b/t/charnames.t
+index 7242fb3..36db3ef 100644
+--- a/t/charnames.t
++++ b/t/charnames.t
+@@ -42,7 +42,11 @@ BEGIN {
+     is unicode2name_en(0xE047), 'Beer';      # SoftBank
+ 
+     is "\N{DoCoMo Beer}",                     "\x{E672}";
+-    is "\N{DoCoMo ファーストフード}", "\x{E673}";
++    TODO: {
++        local $TODO = 'charnames cannot be accesed by non-ASCII name ' .
++            'with perl 5.18 (CPAN RT#87393)';
++        is "\N{DoCoMo ファーストフード}",     "\x{E673}";
++    }
+     is "\N{KDDI Beer}",                       "\x{E4C3}";
+     is "\N{SoftBank Beer}",                   "\x{E047}";
+ 
+-- 
+1.8.3.1
+
diff --git a/Encode-JP-Mobile-0.30-Fix-warnings-counting-for-5.18.patch b/Encode-JP-Mobile-0.30-Fix-warnings-counting-for-5.18.patch
new file mode 100644
index 0000000..f929c24
--- /dev/null
+++ b/Encode-JP-Mobile-0.30-Fix-warnings-counting-for-5.18.patch
@@ -0,0 +1,24 @@
+From 6c014c5171a941da8a51c691b75b486c16c10833 Mon Sep 17 00:00:00 2001
+From: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
+Date: Mon, 29 Jul 2013 11:09:28 -0700
+Subject: [PATCH 1/2] Fix warnings counting for 5.18
+
+---
+ t/charnames.t | 1 +
+ 1 file changed, 1 insertion(+)
+
+diff --git a/t/charnames.t b/t/charnames.t
+index 4fe6fa5..7242fb3 100644
+--- a/t/charnames.t
++++ b/t/charnames.t
+@@ -49,6 +49,7 @@ BEGIN {
+     is "\N{DIGIT SIX}", "6";
+ 
+     {
++        @WARN = (); 
+         my $v_charnames_version = pack "C*", split /\./, $charnames::VERSION;
+         my $backslash_N_fatal = $v_charnames_version ge v1.33;
+ 
+-- 
+1.8.3.1
+
diff --git a/perl-Encode-JP-Mobile.spec b/perl-Encode-JP-Mobile.spec
index 4f56cc8..86a1864 100644
--- a/perl-Encode-JP-Mobile.spec
+++ b/perl-Encode-JP-Mobile.spec
@@ -7,6 +7,10 @@ License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/Encode-JP-Mobile/
 Source0:        http://www.cpan.org/authors/id/M/MI/MIYAGAWA/Encode-JP-Mobile-%{version}.tar.gz
+# Fix a warning, CPAN RT#87393, bug #991873
+Patch0:         Encode-JP-Mobile-0.30-Disable-a-test-for-kanji-name.patch
+# Disable a failing test, CPAN RT#87393, bug #991873
+Patch1:         Encode-JP-Mobile-0.30-Fix-warnings-counting-for-5.18.patch
 BuildRequires:  perl
 BuildRequires:  perl(Config)
 BuildRequires:  perl-Encode-devel
@@ -47,6 +51,8 @@ Unicode の私用領域 (PRIVATE AREA) にマッピングします。
 
 %prep
 %setup -q -n Encode-JP-Mobile-%{version}
+%patch0 -p1
+%patch1 -p1
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor
@@ -68,6 +74,7 @@ make test
 %changelog
 * Sat Aug 03 2013 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 0.30-4
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
+- Fix a warning and disable a test to pass with perl 5.18 (bug #991873)
 
 * Sat Jul 27 2013 Petr Pisar <ppisar at redhat.com> - 0.30-3
 - Perl 5.18 rebuild