Skip Menu |

This queue is for tickets about the Locale-Object CPAN distribution.

Report information
The Basics
Id: 79214
Status: patched
Priority: 0/
Queue: Locale-Object
People
Owner: cpan [...] desert-island.me.uk
Requestors: NHORNE [...] cpan.org
Cc:
AdminCc:
Bug Information
Severity: Normal
Broken in: 0.78
Fixed in: (no value)

History Show all quoted text
  Sat Aug 25 12:07:11 2012 NHORNE [...] cpan.org - Ticket created
Subject: No languages for Puerto Rico
This program should print Spanish (or possibly English). However it dies: #!/usr/bin/perl -wT use strict; use warnings; use diagnostics; use Locale::Object::Country; my $l = Locale::Object::Country->new(code_alpha2 => 'PR'); my $lang = ($l->languages_official)[0]; die "Should have save said either Spanish or English" unless($lang); print "$lang\n";
  Tue Nov 12 16:38:31 2019 cpan [...] desert-island.me.uk - Status changed from 'new' to 'patched'
  Tue Nov 12 16:38:31 2019 cpan [...] desert-island.me.uk - Taken
  Fri Jan 03 09:50:07 2020 NHORNE [...] cpan.org - Correspondence added
Looks like the latest version has fixed it, thank you. $ cat pr #!/usr/bin/perl -wT use strict; use warnings; use diagnostics; use Locale::Object::Country; use Data::Dumper; my $l = Locale::Object::Country->new(code_alpha2 => 'PR'); my $lang = ($l->languages_official)[0]; die "Should have save said either Spanish or English" unless($lang); print Data::Dumper->new([$lang])->Dump(); $ perl -wT pr $VAR1 = bless( { '_code_alpha3' => 'spa', '_code_alpha2' => 'es', '_name' => 'Spanish' }, 'Locale::Object::Language' );