Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Finance-Quote for openSUSE:Factory checked in at 2021-09-15 22:51:07 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Finance-Quote (Old) and /work/SRC/openSUSE:Factory/.perl-Finance-Quote.new.1899 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Finance-Quote" Wed Sep 15 22:51:07 2021 rev:36 rq:918697 version:1.51 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Finance-Quote/perl-Finance-Quote.changes 2020-10-26 16:21:02.871163613 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Finance-Quote.new.1899/perl-Finance-Quote.changes 2021-09-15 22:51:09.962891174 +0200 @@ -1,0 +2,10 @@ +Wed Aug 25 16:46:10 UTC 2021 - Dirk Stoecker <[email protected]> + +- updated to 1.51 + see /usr/share/doc/packages/perl-Finance-Quote/Changes +- Rebase perl-Finance-Quote-66235-Cdnfundlibrary-row.patch +- Delete perl-Finance-Quote-debian-10_whatis.patch (patched file no longer exists) +- Delete perl-Finance-Quote-debian-03_whatis.patch (fixed upstream) +- Delete perl-Finance-Quote-debian-06_seb.patch (fixed upstream) + +------------------------------------------------------------------- Old: ---- Finance-Quote-1.49.tar.gz perl-Finance-Quote-debian-03_whatis.patch perl-Finance-Quote-debian-06_seb.patch perl-Finance-Quote-debian-10_whatis.patch New: ---- Finance-Quote-1.51.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Finance-Quote.spec ++++++ --- /var/tmp/diff_new_pack.TlQGzI/_old 2021-09-15 22:51:10.558891886 +0200 +++ /var/tmp/diff_new_pack.TlQGzI/_new 2021-09-15 22:51:10.562891891 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Finance-Quote # -# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2021 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,98 +18,105 @@ %define cpan_name Finance-Quote Name: perl-Finance-Quote -Version: 1.49 +Version: 1.51 Release: 0 +#Upstream: GPL-1.0-or-later +License: GPL-2.0-or-later Summary: Get stock and mutual fund quotes from various exchanges -License: GPL-2.0-or-later AND GPL-3.0-or-later -Group: Development/Libraries/Perl URL: https://metacpan.org/release/%{cpan_name} -Source0: https://cpan.metacpan.org/authors/id/E/EC/ECOCODE/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/B/BP/BPSCHUCK/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml -Patch2: perl-Finance-Quote-66235-Cdnfundlibrary-row.patch -Patch3: perl-Finance-Quote-debian-03_whatis.patch -Patch5: perl-Finance-Quote-debian-06_seb.patch -Patch6: perl-Finance-Quote-debian-10_whatis.patch +# PATCH-FIX-UPSTREAM https://rt.cpan.org/Public/Bug/Display.html?id=66235 +Patch0: perl-Finance-Quote-66235-Cdnfundlibrary-row.patch +BuildArch: noarch BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(CGI) +BuildRequires: perl(Date::Manip) +BuildRequires: perl(Date::Range) +BuildRequires: perl(Date::Simple) BuildRequires: perl(DateTime) +BuildRequires: perl(DateTime::Duration) +BuildRequires: perl(DateTime::Format::ISO8601) BuildRequires: perl(DateTime::Format::Strptime) -BuildRequires: perl(HTML::Parser) BuildRequires: perl(HTML::TableExtract) BuildRequires: perl(HTML::TokeParser) +BuildRequires: perl(HTML::TokeParser::Simple) BuildRequires: perl(HTML::TreeBuilder) +BuildRequires: perl(HTML::TreeBuilder::XPath) BuildRequires: perl(HTTP::Cookies) BuildRequires: perl(HTTP::Headers) +BuildRequires: perl(HTTP::Request) BuildRequires: perl(HTTP::Request::Common) BuildRequires: perl(HTTP::Status) +BuildRequires: perl(IO::Uncompress::Unzip) BuildRequires: perl(JSON) -BuildRequires: perl(JSON::Parse) -BuildRequires: perl(LWP::Protocol::https) BuildRequires: perl(LWP::Simple) BuildRequires: perl(LWP::UserAgent) +BuildRequires: perl(Module::Load) +BuildRequires: perl(Spreadsheet::XLSX) BuildRequires: perl(String::Util) +BuildRequires: perl(Test::Kwalitee) +BuildRequires: perl(Test::Perl::Critic) +BuildRequires: perl(Test::Pod) +BuildRequires: perl(Test::Pod::Coverage) >= 1.00 BuildRequires: perl(Text::Template) BuildRequires: perl(Time::Piece) -BuildRequires: perl(URI) -BuildRequires: perl(URI::Escape) -BuildRequires: perl(URI::QueryParam) -Requires: perl(CGI) +BuildRequires: perl(Time::Seconds) +BuildRequires: perl(Try::Tiny) +BuildRequires: perl(Web::Scraper) +BuildRequires: perl(XML::LibXML) +BuildRequires: perl(feature) Requires: perl(DateTime) Requires: perl(DateTime::Format::Strptime) -Requires: perl(HTML::Parser) Requires: perl(HTML::TableExtract) Requires: perl(HTML::TokeParser) +Requires: perl(HTML::TokeParser::Simple) Requires: perl(HTML::TreeBuilder) +Requires: perl(HTML::TreeBuilder::XPath) Requires: perl(HTTP::Cookies) Requires: perl(HTTP::Headers) +Requires: perl(HTTP::Request) Requires: perl(HTTP::Request::Common) Requires: perl(HTTP::Status) +Requires: perl(IO::Uncompress::Unzip) Requires: perl(JSON) -Requires: perl(JSON::Parse) -Requires: perl(LWP::Protocol::https) Requires: perl(LWP::Simple) Requires: perl(LWP::UserAgent) +Requires: perl(Module::Load) +Requires: perl(Spreadsheet::XLSX) Requires: perl(String::Util) Requires: perl(Text::Template) Requires: perl(Time::Piece) -Requires: perl(URI) -Requires: perl(URI::Escape) -Requires: perl(URI::QueryParam) -BuildArch: noarch +Requires: perl(Time::Seconds) +Requires: perl(Try::Tiny) +Requires: perl(Web::Scraper) +Requires: perl(XML::LibXML) %{perl_requires} %description -This module gets stock quotes from various internet sources, including -Yahoo! Finance, Fidelity Investments, and the Australian Stock Exchange. -There are two methods of using this module -- a functional interface that -is deprecated, and an object-orientated method that provides greater -flexibility and stability. - -With the exception of straight currency exchange rates, all information is -returned as a two-dimensional hash (or a reference to such a hash, if -called in a scalar context). For example: - - %%info = $q->fetch("australia","CML"); - print "The price of CML is ".$info{"CML","price"}; +This module gets stock quotes from various internet sources all over the +world. Quotes are obtained by constructing a quoter object and using the +fetch method to gather data, which is returned as a two-dimensional hash +(or a reference to such a hash, if called in a scalar context). For +example: + + $q = Finance::Quote->new; + %info = $q->fetch("australia", "CML"); + print "The price of CML is ".$info{"CML", "price"}; The first part of the hash (eg, "CML") is referred to as the stock. The second part (in this case, "price") is referred to as the label. %prep -%setup -q -n %{cpan_name}-%{version} -find . -type f -print0 | xargs -0 chmod 644 -%patch2 -p1 -%patch3 -%patch5 -%patch6 +%autosetup -n %{cpan_name}-%{version} -p1 +find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644 %build perl Makefile.PL INSTALLDIRS=vendor -make %{?_smp_mflags} +%make_build %check -make %{?_smp_mflags} test +make test %install %perl_make_install @@ -117,8 +124,7 @@ %perl_gen_filelist %files -f %{name}.files -%defattr(-,root,root,755) +%doc Changes README %license LICENSE -%doc ChangeLog.1 Changes README %changelog ++++++ Finance-Quote-1.49.tar.gz -> Finance-Quote-1.51.tar.gz ++++++ ++++ 26032 lines of diff (skipped) ++++++ cpanspec.yml ++++++ --- /var/tmp/diff_new_pack.TlQGzI/_old 2021-09-15 22:51:10.774892144 +0200 +++ /var/tmp/diff_new_pack.TlQGzI/_new 2021-09-15 22:51:10.778892149 +0200 @@ -5,14 +5,7 @@ # - source1 # - source2 patches: - perl-Finance-Quote-debian-03_whatis.patch: - perl-Finance-Quote-debian-04_deka.patch: - perl-Finance-Quote-debian-06_seb.patch: - perl-Finance-Quote-debian-10_whatis.patch: - perl-Finance-Quote-66235-Cdnfundlibrary-row.patch: -p1 - perl-Finance-Quote-64897-0001-adopted-to-site-changes.patch: -p1 - perl-Finance-Quote-64897-0002-support-palladium-lookup.patch: -p1 - perl-Finance-Quote-goldmoney-decimal-point.patch: -p1 + perl-Finance-Quote-66235-Cdnfundlibrary-row.patch: -p1 PATCH-FIX-UPSTREAM https://rt.cpan.org/Public/Bug/Display.html?id=66235 #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- @@ -20,7 +13,7 @@ # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_install: |- # sed on %{name}.files -license: GPL-3.0-or-later +license: GPL-2.0-or-later #skip_noarch: 1 #custom_build: - #./Build build flags=%{?_smp_mflags} --myflag ++++++ perl-Finance-Quote-66235-Cdnfundlibrary-row.patch ++++++ --- /var/tmp/diff_new_pack.TlQGzI/_old 2021-09-15 22:51:10.790892163 +0200 +++ /var/tmp/diff_new_pack.TlQGzI/_new 2021-09-15 22:51:10.790892163 +0200 @@ -1,22 +1,12 @@ -https://rt.cpan.org/Public/Bug/Display.html?id=66235 - -Subject: Cdnfundlibrary isn't retrieving the newest available NAV -Date: Mon Feb 28 01:39:08 2011 nul [...] ereomega.net - Ticket created - -The row of the table Cdnfundlibrary retrieves is the second to most -recent (top) row. The following current code should be changed -so that the newest available NAV is retrieved. - -Index: finance-quote/lib/Finance/Quote/Cdnfundlibrary.pm -=================================================================== ---- finance-quote.orig/lib/Finance/Quote/Cdnfundlibrary.pm -+++ finance-quote/lib/Finance/Quote/Cdnfundlibrary.pm -@@ -92,7 +92,7 @@ sub fundlibrary { - $fundquote {$mutual, "method"} = "fundlibrary"; +diff -ur Finance-Quote-1.50/lib/Finance/Quote/Cdnfundlibrary.pm Finance-Quote-1.50_fix/lib/Finance/Quote/Cdnfundlibrary.pm +--- Finance-Quote-1.50/lib/Finance/Quote/Cdnfundlibrary.pm 2021-06-27 05:52:21.000000000 +0200 ++++ Finance-Quote-1.50_fix/lib/Finance/Quote/Cdnfundlibrary.pm 2021-08-25 18:33:24.262128339 +0200 +@@ -102,7 +102,7 @@ - # Fund price and date -- $row = $rows[1]; -+ $row = $rows[0]; - $fundquote {$mutual, "price"} = $$row[2]; - $fundquote {$mutual, "nav"} = $$row[2]; - $fundquote {$mutual, "last"} = $$row[2]; + @rows = $te->rows; + if(@rows) { +- $row = $rows[1]; ++ $row = $rows[0]; + + $fundquote {$mutual, "name"} = trim($$row[0]); + $fundquote {$mutual, "symbol"} = $mutual;
