Skip Menu |
 

This queue is for tickets about the Finance-Quote CPAN distribution.

Report information
The Basics
Id: 99784
Status: patched
Worked: 5 min
Priority: 0/
Queue: Finance-Quote

People
Owner: Nobody in particular
Requestors: rt.cpan.simon [...] arlott.org
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 1.35
Fixed in: 1.37

Attachments


Subject: Finance::Quote::MStaruk does not detect the price correctly
Download (untitled) / with headers
text/plain 136b
MStaruk returns the "Share Class Size (Mil)" value instead of the "NAV" value. Example: GB00B7W6PR65 should be 277.35 GBX not 70.23 GBP
From: paul [...] city-fan.org
Download (untitled) / with headers
text/plain 223b
On Fri Oct 24 16:47:46 2014, SimonArlott wrote: Show quoted text
> MStaruk returns the "Share Class Size (Mil)" value instead of the > "NAV" value. > > Example: GB00B7W6PR65 should be 277.35 GBX not 70.23 GBP
Attached patch works for me.
Subject: Finance-Quote-1.37-rt99784.patch
--- lib/Finance/Quote/MStaruk.pm +++ lib/Finance/Quote/MStaruk.pm @@ -157,7 +157,7 @@ my ($currency, $date, $price, $pchange); if ($webdoc =~ - m[<td class="line heading">ISIN</td>.*<span class="heading"><br />([0-9]{2}/[0-9]{2}/[0-9]{4})</span>.*([A-Z]{3}).([0-9\.]+).*>([0-9\.\-]+)] ) + m[<td class="line heading">NAV<span class="heading"><br />([0-9]{2}/[0-9]{2}/[0-9]{4})</span>.*([A-Z]{3}).([0-9\.]+).*>([0-9\.\-]+)] ) { $date = $1;
Patch applied. Thanks -- Erik


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.