Bug #76373 for Encode-JP-Mobile: Fails with bleadperl (usage of charnames::charnames?) [perl #112530]

Sat Apr 07 05:41:19 2012 SREZIC [...] cpan.org - Ticket created

Subject:

Fails with bleadperl (usage of charnames::charnames?)

The testsuite of Encode-JP-Mobile fails since approximately perl 5.15.7. See the matrix overview: http://matrix.cpantesters.org/?dist=Encode-JP-Mobile-0.27 One problem seems to be the usage of the charnames::charnames function: Undefined subroutine &charnames::charnames called at /var/tmp/CPAN-build/Encode-JP-Mobile-0.27-xkf7r2/blib/lib/Encode/JP/Mobile/Charnames.pm line 70. This function was never documented, it seems, and was moved to the private module _charnames::charnames. Regards, Slaven

Wed Apr 18 23:31:39 2012 $_ = 'spro^^*%*^6ut# [...] &$%*c>#!^!#&!pan.org'; y/a-z.@//cd; print - Correspondence added

On Sat Apr 07 05:41:19 2012, SREZIC wrote: Show quoted text

> The testsuite of Encode-JP-Mobile fails since approximately perl > 5.15.7. > See the matrix overview: > http://matrix.cpantesters.org/?dist=Encode-JP-Mobile-0.27 > > One problem seems to be the usage of the charnames::charnames > function: > > Undefined subroutine &charnames::charnames called at > /var/tmp/CPAN-build/Encode-JP-Mobile-0.27- > xkf7r2/blib/lib/Encode/JP/Mobile/Charnames.pm > line 70. > > This function was never documented, it seems, and was moved to the > private module _charnames::charnames.

Here’s a patch to solve the charnames problem. But I’m still getting other test failures.

Subject:

encode-jp-charnames.txt

diff -rup Encode-JP-Mobile-0.27-CFft06-orig/lib/Encode/JP/Mobile/Charnames.pm Encode-JP-Mobile-0.27-CFft06/lib/Encode/JP/Mobile/Charnames.pm --- Encode-JP-Mobile-0.27-CFft06-orig/lib/Encode/JP/Mobile/Charnames.pm 2010-03-08 22:12:46.000000000 -0800 +++ Encode-JP-Mobile-0.27-CFft06/lib/Encode/JP/Mobile/Charnames.pm 2012-04-18 20:24:55.000000000 -0700 @@ -1,7 +1,6 @@ package Encode::JP::Mobile::Charnames; use strict; use warnings; -use charnames (); use bytes (); use File::ShareDir 'dist_file'; use Carp; @@ -14,6 +13,12 @@ our @EXPORT_OK = qw( unicode2name unicod my $name2unicode; +{ + use charnames ':full'; + BEGIN { *_def_translator = $^H{charnames} } +} + + sub import { # for perl < 5.10 if ($charnames::hint_bits) { @@ -67,14 +72,14 @@ sub _unicode_translator { } } else { - return charnames::charnames($name); + return _def_translator($name); } } # pictograms are only in the above 0xFF area. sub _bytes_translator { my $name = shift; - return charnames::charnames($name); + return _def_translator($name); } sub vianame {

Wed Apr 18 23:31:40 2012 The RT System itself - Status changed from 'new' to 'open'

Thu Apr 19 01:00:39 2012 $_ = 'spro^^*%*^6ut# [...] &$%*c>#!^!#&!pan.org'; y/a-z.@//cd; print - Correspondence added

Subject:	Inversion list regression (Blead 36eb48b44 breaks Encode::JP::Mobile)
RT-Send-CC:	perlbug [...] perl.org

On Wed Apr 18 23:31:39 2012, SPROUT wrote: Show quoted text

> But I’m still getting > other test failures.

Which turn out to be a pretty serious perl regression: $ perl5.15.9 -e 'sub InFoo { "a\tb\n9\ta\n" } "\0" =~ /\p{InFoo}/' panic: attempting to append to an inversion list, but wasn't at the end of the list, final=11, start=10, match=f at -e line 1. caused by this commit: 36eb48b449474e547f4a223443d342155b738cee is the first bad commit commit 36eb48b449474e547f4a223443d342155b738cee Author: Karl Williamson <public@khwilliamson.com> Date: Sat Nov 26 18:24:46 2011 -0700 Utf8.c: Generate and use inversion lists for binary swashes Before that commit, it was possible to specify overlapping ranges, and perl had no trouble with it.

Thu Apr 19 01:01:20 2012 perlbug-followup [...] perl.org - Correspondence added

Subject:	[perl #112530] perlbug AutoReply: [rt.cpan.org #76373] Inversion list regression (Blead 36eb48b44 breaks Encode::JP::Mobile)
Date:	Wed, 18 Apr 2012 22:01:03 -0700
To:	bug-Encode-JP-Mobile [...] rt.cpan.org
From:	perlbug-followup [...] perl.org

Greetings, This message has been automatically generated in response to the creation of a perl bug report regarding: "[rt.cpan.org #76373] Inversion list regression (Blead 36eb48b44 breaks Encode::JP::Mobile) ". There is no need to reply to this message right now. Your ticket has been assigned an ID of [perl #112530]. You can view your ticket at https://rt.perl.org:443/rt3/Ticket/Display.html?id=112530 Within the next 24 to 72 hours, your message will be posted to the Perl 5 Porters mailing list. Please be patient! Please include the string: [perl #112530] in the subject line of all future correspondence about this issue. To do so, you may reply to this message (please delete unnecessary quotes and text.) Thank you, perlbug-followup@perl.org ------------------------------------------------------------------------- From rt-cpan-org-return@perl.org Thu Apr 19 05:00:51 2012 CC: perlbug@perl.org MIME-Version: 1.0 In-Reply-To: <rt-3.8.HEAD-30925-1334806299-1450.76373-7-0@rt.cpan.org> X-Spam-Status: No, hits=-1.9 required=8.0 tests=ALL_TRUSTED,BAYES_00,MISSING_HEADERS References: <RT-Ticket-76373@rt.cpan.org> <rt-3.8.HEAD-30925-1334806299-1450.76373-7-0@rt.cpan.org> Content-Type: text/plain; charset="utf-8" Message-ID: <rt-3.8.HEAD-30923-1334811640-176.76373-7-0@rt.cpan.org> Reply-To: bug-Encode-JP-Mobile@rt.cpan.org X-RT-Original-Encoding: utf-8 RT-Originator: $_ = 'spro^^*%*^6ut#@&$%*c>#!^!#&!pan.org'; y/a-z.@//cd; print Received: (qmail 27852 invoked by uid 225); 19 Apr 2012 05:00:51 -0000 Received: (qmail 27848 invoked by alias); 19 Apr 2012 05:00:50 -0000 Received: from cpan.rt.develooper.com (HELO cpan.rt.develooper.com) (207.171.7.181) by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Wed, 18 Apr 2012 22:00:44 -0700 Received: by cpan.rt.develooper.com (Postfix, from userid 536) id 04DD27047; Wed, 18 Apr 2012 22:00:41 -0700 (PDT) Managed-BY: RT 3.8.HEAD (http://www.bestpractical.com/rt/) Delivered-To: rt-perl5@rt.perl.org Delivered-To: perlbug@perl.org Subject: [rt.cpan.org #76373] Inversion list regression (Blead 36eb48b44 breaks Encode::JP::Mobile) Return-Path: <rt-cpan-org-return@perl.org> X-Spam-Check-BY: la.mx.develooper.com Date: Thu, 19 Apr 2012 01:00:40 -0400 RT-Ticket: rt.cpan.org #76373 Precedence: normal X-RT-Loop-Prevention: rt.cpan.org Content-Transfer-Encoding: 8bit From: "Father Chrysostomos via RT" <bug-Encode-JP-Mobile@rt.cpan.org>

Thu Apr 19 01:01:22 2012 The RT System itself - Subject changed from 'Fails with bleadperl (usage of charnames::charnames?)' to 'Fails with bleadperl (usage of charnames::charnames?) [perl #112530]'

Thu Apr 19 22:21:37 2012 MIYAGAWA [...] cpan.org - Correspondence added

Fixed in 0.28

Thu Apr 19 22:21:38 2012 MIYAGAWA [...] cpan.org - Status changed from 'open' to 'resolved'