Package: libfinance-yahoo-perl
Version: 1.13-4
Tags: patch
There is a bug in Quote.pm that truncates conversion rates that
involves thousands. The attached patch (from upstream's git) solves
that bug. Please refer to the bug report in upstream:
http://rt.cpan.org/Ticket/Display.html?id=39658
--
أحمد المحمودي (Ahmed El-Mahmoudy)
Digital design engineer
GPG KeyID: 0x9DCA0B27 (@ subkeys.pgp.net)
GPG Fingerprint: 087D 3767 8CAC 65B1 8F6C 156E D325 C3C8 9DCA 0B27
diff --git a/lib/Finance/Quote.pm b/lib/Finance/Quote.pm
index 2e317ef..a78858f 100644
--- a/lib/Finance/Quote.pm
+++ b/lib/Finance/Quote.pm
@@ -247,6 +247,9 @@ sub currency {
my $row = ($te->rows())[0];
my ($exchange_rate) = $$row[1];
+ $exchange_rate =~ s/,// ; # solve a bug when conversion rate
+ # involves thousands. yahoo inserts
+ # a comma when thousands occur
{
local $^W = 0; # Avoid undef warnings.
