develooper Front page | perl.perl5.porters | Postings from March 2013

Re: [perl #116919] Examples in I18N::Langinfo pod won't run due tofatal errors

Thread Previous | Thread Next
From:
Aaron Trevena
Date:
March 20, 2013 07:00
Subject:
Re: [perl #116919] Examples in I18N::Langinfo pod won't run due tofatal errors
Message ID:
CAJWQ4V1ksB5GUh0OkhY=+ea_=nEd-U8OCGX9eai9W8agwmJzzw@mail.gmail.com
On 19 March 2013 23:12, James E Keenan via RT <perlbug-followup@perl.org> wrote:
> I'm withdrawing my patch and recommend that you draw up a new patch
> against blead.

checked out github mirror, patch below and attached

diff --git a/ext/I18N-Langinfo/Langinfo.pm b/ext/I18N-Langinfo/Langinfo.pm
index 0b6ef2a..985d2bb 100644
--- a/ext/I18N-Langinfo/Langinfo.pm
+++ b/ext/I18N-Langinfo/Langinfo.pm
@@ -103,7 +103,7 @@ answers for a yes/no question in the current locale.

     use I18N::Langinfo qw(langinfo ABDAY_1 YESSTR NOSTR);

-    my ($abday_1, $yesstr, $nostr) = map { langinfo } qw(ABDAY_1 YESSTR NOSTR);
+    my ($abday_1, $yesstr, $nostr) = map { langinfo($_) } (ABDAY_1,
YESSTR, NOSTR);

     print "$abday_1? [$yesstr/$nostr] ";




-- 
Aaron J Trevena, BSc Hons
http://www.aarontrevena.co.uk
LAMP System Integration, Development and Consulting

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About