commit e975a090f04c25bb2ffd400e5428e47cbdb7128a
Author: Paul Howarth <paul@xxxxxxxxxxxx>
Date: Wed Feb 25 18:29:37 2015 +0000
Fix some UK fund sources
- Fix GBX pricing in FTfunds (CPAN RT#99783)
- Fix MStaruk quote retrieval (CPAN RT#99784)
Finance-Quote-1.37-rt99783.patch | 11 +++++++++++
Finance-Quote-1.37-rt99784.patch | 11 +++++++++++
perl-Finance-Quote.spec | 18 +++++++++++++++---
3 files changed, 37 insertions(+), 3 deletions(-)
---
diff --git a/Finance-Quote-1.37-rt99783.patch b/Finance-Quote-1.37-rt99783.patch
new file mode 100644
index 0000000..6cf458a
--- /dev/null
+++ b/Finance-Quote-1.37-rt99783.patch
@@ -0,0 +1,11 @@
+--- lib/Finance/Quote/FTfunds.pm
++++ lib/Finance/Quote/FTfunds.pm
+@@ -233,7 +233,7 @@
+ # Find the currency
+ my $currency;
+ if ($webdoc->content =~
+- m[($code):([A-Z]{3})] )
++ m[<th>(Price currency)</th><td>([A-Z]{3})</td>] )
+ {
+
+ $currency = $2;
diff --git a/Finance-Quote-1.37-rt99784.patch b/Finance-Quote-1.37-rt99784.patch
new file mode 100644
index 0000000..8a9023c
--- /dev/null
+++ b/Finance-Quote-1.37-rt99784.patch
@@ -0,0 +1,11 @@
+--- 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;
diff --git a/perl-Finance-Quote.spec b/perl-Finance-Quote.spec
index 1deb5d9..5a9ed57 100644
--- a/perl-Finance-Quote.spec
+++ b/perl-Finance-Quote.spec
@@ -1,11 +1,13 @@
Name: perl-Finance-Quote
Version: 1.37
-Release: 1%{?dist}
+Release: 2%{?dist}
Summary: A Perl module that retrieves stock and mutual fund quotes
License: GPLv2+
URL: http://search.cpan.org/dist/Finance-Quote/
Source0: http://search.cpan.org/CPAN/authors/id/E/EC/ECOCODE/Finance-Quote-%{version}.tar.gz
-Patch1: FQ-requires.patch
+Patch0: Finance-Quote-1.37-rt99783.patch
+Patch1: Finance-Quote-1.37-rt99784.patch
+Patch10: FQ-requires.patch
BuildArch: noarch
# Module Build
BuildRequires: perl >= 4:5.10.0
@@ -53,9 +55,15 @@ using various source.
%prep
%setup -q -n Finance-Quote-%{version}
-# Mozilla::CA is not actually needed (unavailable for EL-6)
+# Fix GBX pricing in FTfunds (CPAN RT#99783)
+%patch0
+
+# Fix MStaruk quote retrieval (CPAN RT#99784)
%patch1
+# Mozilla::CA is not actually needed (unavailable for EL-6)
+%patch10
+
%build
perl Makefile.PL INSTALLDIRS=vendor
make %{?_smp_mflags}
@@ -133,6 +141,10 @@ make test
%{_mandir}/man3/Finance::Quote::ZA_UnitTrusts.3*
%changelog
+* Tue Feb 24 2015 Paul Howarth <paul@xxxxxxxxxxxx> - 1.37-2
+- Fix GBX pricing in FTfunds (CPAN RT#99783)
+- Fix MStaruk quote retrieval (CPAN RT#99784)
+
* Mon Feb 2 2015 Paul Howarth <paul@xxxxxxxxxxxx> - 1.37-1
- Update to 1.37
- MorningstarJP: changed dependency from Date::Calc to DateTime
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
