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

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

• [perl #116919] Examples in I18N::Langinfo pod won't run due to fatal errors by Karl Williamson via RT
• Re: [perl #116919] Examples in I18N::Langinfo pod won't run due tofatal errors by Aaron Trevena
• [perl #116919] Examples in I18N::Langinfo pod won't run due to fatal errors by James E Keenan via RT