Hello community, here is the log from the commit of package perl-Finance-Quote for openSUSE:12.3 checked in at 2013-01-31 16:36:05 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:12.3/perl-Finance-Quote (Old) and /work/SRC/openSUSE:12.3/.perl-Finance-Quote.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Finance-Quote", Maintainer is "sbrabec@suse.com" Changes: -------- --- /work/SRC/openSUSE:12.3/perl-Finance-Quote/perl-Finance-Quote.changes 2013-01-31 01:31:19.000000000 +0100 +++ /work/SRC/openSUSE:12.3/.perl-Finance-Quote.new/perl-Finance-Quote.changes 2013-01-31 16:36:07.000000000 +0100 @@ -1,0 +2,12 @@ +Fri Jan 25 21:34:00 CET 2013 - sbrabec@suse.cz + +- Update to version 1.17 (bnc#800797): + * many updates for server changes + * new modules + * code cleanup +- Drop perl-Finance-Quote-fedora-tiaa-cref.patch: New code is a + different implementation and it supports institutional funds as + well. +- Update Requires. + +------------------------------------------------------------------- Old: ---- finance-quote-git20110222.tar.bz2 perl-Finance-Quote-debian-02_typo.patch perl-Finance-Quote-fedora-tiaa-cref.patch New: ---- Finance-Quote-1.18.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Finance-Quote.spec ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:07.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:07.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Finance-Quote # -# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -15,30 +15,31 @@ # Please submit bugfixes or comments via http://bugs.opensuse.org/ # -# norootforbuild - Name: perl-Finance-Quote Url: http://finance-quote.sourceforge.net/ +Requires: perl +Requires: perl-Crypt-SSLeay +Requires: perl-HTML-Parser +Requires: perl-HTML-TableExtract +Requires: perl-HTML-TokeParser-Simple +Requires: perl-HTML-Tree +Requires: perl-HTTP-Message +Requires: perl-URI +Requires: perl-base +Requires: perl-libwww-perl +Summary: Provides access to time-delayed stockquotes License: GPL-2.0+ Group: Development/Libraries/Perl -AutoReqProv: on -Requires: perl-Crypt-SSLeay perl-libwww-perl -Requires: perl-HTML-Parser perl-HTML-TableExtract perl-HTML-TokeParser-Simple perl-HTML-Tree -Requires: perl-URI perl-XML-SAX -Summary: Provides access to time-delayed stockquotes -%define gitversion 20110222 -Version: 1.17.0.%{gitversion} -Release: 9 -Source: finance-quote-git%{gitversion}.tar.bz2 +Version: 1.18 +Release: 0 +Source: Finance-Quote-%{version}.tar.gz Patch: perl-Finance-Quote-LeRevenu.patch -Patch10: perl-Finance-Quote-debian-02_typo.patch Patch11: perl-Finance-Quote-debian-03_whatis.patch Patch12: perl-Finance-Quote-debian-04_deka.patch Patch13: perl-Finance-Quote-debian-06_seb.patch Patch14: perl-Finance-Quote-debian-08_deka.patch Patch15: perl-Finance-Quote-debian-10_whatis.patch -Patch30: perl-Finance-Quote-fedora-tiaa-cref.patch Patch60: perl-Finance-Quote-66235-Cdnfundlibrary-row.patch Patch61: perl-Finance-Quote-70690-IndiaMutual-temp.patch Patch62: perl-Finance-Quote-65269-ftfunds.patch @@ -62,22 +63,14 @@ Finance::Quote' for full information. Alternatively, you can 'perldoc lib/Finance/Quote.pm' before the install. - - -Authors: --------- - Paul Fenwick <pjf@cpan.org> - %prep -%setup -q -n finance-quote +%setup -q -n Finance-Quote-%{version} %patch -p1 -%patch10 %patch11 %patch12 %patch13 %patch14 %patch15 -%patch30 -p1 %patch60 -p1 %patch61 -p1 %patch62 -p1 @@ -90,7 +83,7 @@ %patch69 -p1 %patch100 -p1 %patch101 -p1 -rm lib/Finance/*.orig lib/Finance/Quote/*.orig +rm -f lib/Finance/*.orig lib/Finance/Quote/*.orig mv Documentation/README Documentation/README2 %build ++++++ perl-Finance-Quote-57401-financecanada.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -13,10 +13,10 @@ correct information is retrieved. Attached is the updated F::Q module and a testing module. -Index: finance-quote/lib/Finance/Quote/FinanceCanada.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/FinanceCanada.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/FinanceCanada.pm -+++ finance-quote/lib/Finance/Quote/FinanceCanada.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/FinanceCanada.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/FinanceCanada.pm @@ -7,21 +7,24 @@ # Version 0.2 Rewrite by David Hampton <hampton@employees.org> for # changed web site. @@ -37,7 +37,7 @@ +use HTML::TokeParser::Simple; + --$VERSION = '1.17'; +-$VERSION = '1.18'; -my $FINANCECANADA_MAINURL = ("http://finance.canada.com/"); -my $FINANCECANADA_URL = "http://stockgroup.canada.com/sn_overview.asp?symbol=T."; +my $VERSION = '0.3'; @@ -48,16 +48,14 @@ sub methods { return (canada => &financecanada, -@@ -33,8 +36,7 @@ sub labels { - my @labels = qw/method source name symbol currency last date isodate nav price/; - return (canada => @labels, - financecanada => @labels); --} -- -+} +@@ -36,7 +39,6 @@ sub labels { + } +- sub financecanada { + my $quoter = shift; + my @symbols = @_; @@ -47,122 +49,235 @@ sub financecanada { my $ua = $quoter->user_agent; @@ -184,7 +182,7 @@ - } - $info{$symbol, "day_range"} = $info{$symbol, "low"} . " - " . $info{$symbol, "high"} - if (defined($info{$symbol, "high"}) && defined($info{$symbol, "low"})); -- +- - if (defined($year_high) && defined($year_low)) { - $info{$symbol, "year_range"} = "$year_low - $year_high"; - } @@ -301,11 +299,12 @@ + } + } + } -+ } -+ + } + +- return wantarray() ? %info : %info; + return %info; -+} -+ + } + +sub ParseFund($) { + my $ref = shift; + my $parser = $$ref; @@ -358,9 +357,8 @@ + } + } + } - } - -- return wantarray() ? %info : %info; ++ } ++ + return %info; +} + @@ -384,8 +382,8 @@ + my $raw = shift; + $raw =~ /^$?(.*)$/; + return $1; - } - ++} ++ + 1; @@ -403,9 +401,8 @@ # Can failover to other methods - %quotes = $q->fetch("canada", "stock_fund-code"); -- + %quotes = $q->fetch("canada", "stock_code"); -+ + # Use this module only - %quotes = $q->fetch("financecanada", "stock_fund-code"); + %quotes = $q->fetch("financecanada", "stock_code"); @@ -441,7 +438,7 @@ =head1 LABELS RETURNED -@@ -199,9 +319,8 @@ method source name symbol currency date +@@ -199,7 +319,7 @@ method source name symbol currency date =head1 SEE ALSO @@ -450,12 +447,10 @@ Finance::Quote - =cut -- -Index: finance-quote/t/financecanada.t +Index: Finance-Quote-1.18/t/financecanada.t =================================================================== ---- finance-quote.orig/t/financecanada.t -+++ finance-quote/t/financecanada.t +--- Finance-Quote-1.18.orig/t/financecanada.t ++++ Finance-Quote-1.18/t/financecanada.t @@ -1,36 +1,42 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl ++++++ perl-Finance-Quote-61750-comdirect.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -3,24 +3,24 @@ Date: Wed Sep 29 06:41:51 2010 http://www.google.com/profiles/lars.eggert - Ticket created [Reply] [Forward] Subject: Finance::Quote Module for Comdirect Bank -Available at http://fit.nokia.com/lars/soft ware/Comdirect.pm +Available at http://fit.nokia.com/lars/software/Comdirect.pm -Index: finance-quote/MANIFEST +Index: Finance-Quote-1.18/MANIFEST =================================================================== ---- finance-quote.orig/MANIFEST -+++ finance-quote/MANIFEST -@@ -25,6 +25,7 @@ lib/Finance/Quote/ASX.pm - lib/Finance/Quote/BMONesbittBurns.pm +--- Finance-Quote-1.18.orig/MANIFEST ++++ Finance-Quote-1.18/MANIFEST +@@ -26,6 +26,7 @@ lib/Finance/Quote/BMONesbittBurns.pm lib/Finance/Quote/Bourso.pm + lib/Finance/Quote/BSERO.pm lib/Finance/Quote/Cdnfundlibrary.pm +lib/Finance/Quote/Comdirect.pm lib/Finance/Quote/Cominvest.pm lib/Finance/Quote/Currencies.pm lib/Finance/Quote/Deka.pm -Index: finance-quote/lib/Finance/Quote/Comdirect.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Comdirect.pm =================================================================== --- /dev/null -+++ finance-quote/lib/Finance/Quote/Comdirect.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Comdirect.pm @@ -0,0 +1,201 @@ +# Finance::Quote Perl module to retrieve prices from Comdirect Bank +# Copyright (C) 2010 Lars Eggert <lars.eggert@gmx.net> ++++++ perl-Finance-Quote-64474-stooq.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -34,22 +34,22 @@ sent was my intermediate version not working one. -Index: finance-quote/MANIFEST +Index: Finance-Quote-1.18/MANIFEST =================================================================== ---- finance-quote.orig/MANIFEST -+++ finance-quote/MANIFEST -@@ -47,6 +47,7 @@ lib/Finance/Quote/NZX.pm - lib/Finance/Quote/Platinum.pm - lib/Finance/Quote/SEB.pm +--- Finance-Quote-1.18.orig/MANIFEST ++++ Finance-Quote-1.18/MANIFEST +@@ -50,6 +50,7 @@ lib/Finance/Quote/SEB.pm + lib/Finance/Quote/SIXfunds.pm + lib/Finance/Quote/SIXshares.pm lib/Finance/Quote/StockHouseCanada.pm +lib/Finance/Quote/Stooq.pm lib/Finance/Quote/Tdefunds.pm lib/Finance/Quote/Tdwaterhouse.pm lib/Finance/Quote/Tiaacref.pm -Index: finance-quote/lib/Finance/Quote/Stooq.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Stooq.pm =================================================================== --- /dev/null -+++ finance-quote/lib/Finance/Quote/Stooq.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Stooq.pm @@ -0,0 +1,149 @@ +# Copyright (C) 1998, Dj Padzensky <djpadz@padz.net> +# Copyright (C) 1998, 1999 Linas Vepstas <linas@linas.org> ++++++ perl-Finance-Quote-64897-0001-adopted-to-site-changes.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -20,10 +20,10 @@ lib/Finance/Quote/GoldMoney.pm | 102 ++++++++++++++++++--------------------- 1 files changed, 47 insertions(+), 55 deletions(-) -Index: finance-quote/lib/Finance/Quote/GoldMoney.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/GoldMoney.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/GoldMoney.pm -+++ finance-quote/lib/Finance/Quote/GoldMoney.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/GoldMoney.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/GoldMoney.pm @@ -32,6 +32,7 @@ require Crypt::SSLeay; use HTTP::Request::Common; @@ -53,10 +53,10 @@ if( $_want_gold or $_want_silver or $_want_platinum) { - my $GOLDMONEY_URL = "http://goldmoney.com"; my $response = $ua->request(GET $GOLDMONEY_URL); - + if ($response->is_success) { $html_string =$response->content; - + - # we want the 'Current Spot Rates' table - $te = new HTML::TableExtract->new( attribs=>{class=>'spot'}, subtables=>1); - $te->parse($html_string); @@ -139,7 +139,7 @@ + $info{'silver','currency'} = $currency; + $info{'silver','success'} = 1; } - + # get platinum rate # if( $_want_platinum ) { ++++++ perl-Finance-Quote-64897-0002-support-palladium-lookup.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -20,10 +20,10 @@ t/goldmoney.t | 13 +++++++++- 2 files changed, 47 insertions(+), 12 deletions(-) -Index: finance-quote/lib/Finance/Quote/GoldMoney.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/GoldMoney.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/GoldMoney.pm -+++ finance-quote/lib/Finance/Quote/GoldMoney.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/GoldMoney.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/GoldMoney.pm @@ -7,7 +7,7 @@ # Copyright (C) 2000, Brent Neal <brentn@users.sourceforge.net> # Copyright (C) 2000, Volker Stuerzl <volker.stuerzl@gmx.de> @@ -49,7 +49,7 @@ +# - get 'gold', 'silver', 'platinum' and 'palladium' spot rates from +# goldmoney.com # - error out properly (that is: ignore) all other symbols - # + # sub goldmoney { @@ -64,12 +64,14 @@ sub goldmoney { my $ua = $quoter->user_agent; @@ -135,10 +135,10 @@ - currency =head1 SEE ALSO -Index: finance-quote/t/goldmoney.t +Index: Finance-Quote-1.18/t/goldmoney.t =================================================================== ---- finance-quote.orig/t/goldmoney.t -+++ finance-quote/t/goldmoney.t +--- Finance-Quote-1.18.orig/t/goldmoney.t ++++ Finance-Quote-1.18/t/goldmoney.t @@ -7,12 +7,12 @@ if (not $ENV{ONLINE_TEST}) { plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test'; } ++++++ perl-Finance-Quote-65269-ftfunds.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -22,11 +22,11 @@ Best regards, -Index: finance-quote/MANIFEST +Index: Finance-Quote-1.18/MANIFEST =================================================================== ---- finance-quote.orig/MANIFEST -+++ finance-quote/MANIFEST -@@ -33,6 +33,7 @@ lib/Finance/Quote/Fidelity.pm +--- Finance-Quote-1.18.orig/MANIFEST ++++ Finance-Quote-1.18/MANIFEST +@@ -34,6 +34,7 @@ lib/Finance/Quote/Fidelity.pm lib/Finance/Quote/FinanceCanada.pm lib/Finance/Quote/Finanzpartner.pm lib/Finance/Quote/Fool.pm @@ -34,10 +34,10 @@ lib/Finance/Quote/FTPortfolios.pm lib/Finance/Quote/GoldMoney.pm lib/Finance/Quote/HEX.pm -Index: finance-quote/lib/Finance/Quote/FTFunds.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/FTFunds.pm =================================================================== --- /dev/null -+++ finance-quote/lib/Finance/Quote/FTFunds.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/FTFunds.pm @@ -0,0 +1,345 @@ +#!/usr/bin/perl -w + ++++++ perl-Finance-Quote-70690-IndiaMutual-temp-del.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -1,8 +1,8 @@ -Index: finance-quote/lib/Finance/Quote/IndiaMutual.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/IndiaMutual.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/IndiaMutual.pm -+++ finance-quote/lib/Finance/Quote/IndiaMutual.pm -@@ -67,6 +67,7 @@ sub amfiindia { +--- Finance-Quote-1.18.orig/lib/Finance/Quote/IndiaMutual.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/IndiaMutual.pm +@@ -69,6 +69,7 @@ sub amfiindia { open NAV, $AMFI_NAV_LIST or die "Unexpected error in opening file: $!\n"; ++++++ perl-Finance-Quote-70690-IndiaMutual-temp.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -14,23 +14,24 @@ Thanks Vishal -Index: finance-quote/lib/Finance/Quote/IndiaMutual.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/IndiaMutual.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/IndiaMutual.pm -+++ finance-quote/lib/Finance/Quote/IndiaMutual.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/IndiaMutual.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/IndiaMutual.pm @@ -13,6 +13,7 @@ use LWP::UserAgent; use HTTP::Request::Common; use HTTP::Status; use HTML::TableExtract; +use File::Temp qw / tempfile /; - $VERSION = '1.17'; + $VERSION = '1.18'; -@@ -22,7 +23,7 @@ $VERSION = '1.17'; - $AMFI_MAIN_URL = ("http://amfiindia.com/"); - $AMFI_URL = ("${AMFI_MAIN_URL}NavReport.aspx?type=0"); - #$AMFI_URL = ("${AMFI_MAIN_URL}spages/NAV0.txt"); This page seems to do the job also. Keep for reference --$AMFI_NAV_LIST = "/tmp/amfinavlist.txt"; +@@ -24,8 +25,7 @@ $AMFI_URL = ("${AMFI_MAIN_URL}NavReport. + #$AMFI_URL = ("${AMFI_MAIN_URL}spages/NAV0.txt"); #This page seems to do the job also. Keep for reference + + # amfinavlist.txt is a cache-file. keep it until updated on the website since this is a 1meg file. +-my $cachedir = $ENV{TMPDIR} // $ENV{TEMP} // '/tmp/'; +-$AMFI_NAV_LIST = $cachedir."amfinavlist.txt"; +(undef, $AMFI_NAV_LIST) = tempfile(); sub methods { return (indiamutual => &amfiindia, ++++++ perl-Finance-Quote-LeRevenu.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -1,10 +1,12 @@ -Index: Finance-Quote-1.17/lib/Finance/Quote/LeRevenu.pm +https://bugzilla.novell.com/show_bug.cgi?id=555687 + +Index: Finance-Quote-1.18/lib/Finance/Quote/LeRevenu.pm =================================================================== ---- Finance-Quote-1.17.orig/lib/Finance/Quote/LeRevenu.pm -+++ Finance-Quote-1.17/lib/Finance/Quote/LeRevenu.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/LeRevenu.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/LeRevenu.pm @@ -43,11 +43,11 @@ use HTML::TableExtract; - $VERSION = '1.17'; + $VERSION = '1.18'; -my $LR_URL = 'http://bourse.lerevenu.com/recherchenom.hts'; +my $LR_URL = 'http://bourse.lerevenu.com/v2/recherchenom.hts'; @@ -14,11 +16,11 @@ - lerevenu => &lerevenu); } +sub methods { return ( france => &pre_france, + lerevenu => &pre_lerevenu); } - { + { my @labels = qw/name last date isodate p_change open high low close volume currency method exchange/; @@ -55,355 +55,231 @@ sub methods { return ( france => &lerev - lerevenu => @labels); } + lerevenu => @labels); } } -sub lerevenu { @@ -44,10 +46,10 @@ { - $url="$LR_URL?recherchenom=$stocks&p=20"; + $url="$LR_URL?recherchenom=$stocks".$ext_url; - - $reply = $ua->request(GET $url); - if ($reply->is_success) + $reply = $ua->request(GET $url); + + if ($reply->is_success) { - # print STDERR $reply->content,"\n"; - @@ -100,11 +102,11 @@ - foreach $ts ($te->table_state(5, 0)){ - @rows=$ts->rows; - $info{$stocks, "name"}=$rows[0][0]; -- } +- } - foreach $ts ($te->table_state(8, 1)){ - @rows=$ts->rows; - foreach $row ($ts->rows) { -- ASSIGN: for ( @$row[0] ) { +- ASSIGN: for ( @$row[0] ) { - /Dernier/ && do { - ($info{$stocks, "last"}=@$row[1]) =~ s/[^0-9.-]*//g; - ($info{$stocks, "close"}=@$row[2]) =~ s/[^0-9.-]*//g; @@ -144,7 +146,7 @@ - foreach $ts ($te->table_state(6, 5)){ - @rows=$ts->rows; - foreach $row ($ts->rows) { -- ASSIGN: for ( @$row[0] ){ +- ASSIGN: for ( @$row[0] ){ - /Isin/ && do { - # GnuCash - $info{$stocks, "symbol"}=@$row[1]; @@ -153,14 +155,14 @@ - } - } - } -- last SWITCH; +- last SWITCH; - }; - # style=bond - /Obligations/ && do { - foreach $ts ($te->table_state(5, 0)){ - @rows=$ts->rows; - $info{$stocks, "name"}=$rows[0][0]; -- } +- } - foreach $ts ($te->table_state(8, 0)){ - @rows=$ts->rows; - foreach $row ($ts->rows) { @@ -169,9 +171,9 @@ + $url="http://bourse.lerevenu.com/v2/".$test[0]; + ($url) =~ s/http://www.lerevenu.com/ajax/getFiche.php/action.hts/; + -+ $reply = $ua->request(GET $url); ++ $reply = $ua->request(GET $url); + -+ if ($reply->is_success) ++ if ($reply->is_success) + { + + $te= new HTML::TableExtract( ); @@ -214,7 +216,7 @@ + $info{$stocks, "name"}=$rows[0][0]; + $info{$stocks, "exchange"}=$rows[3][1]; + ($info{$stocks, "symbol"}=$rows[3][0]) =~ s/\W(.+)$//g; -+ } ++ } + foreach $ts ($te->table_state(6, 1)){ + @rows=$ts->rows; + $info{$stocks, "last"}=$rows[2][1]; @@ -228,7 +230,7 @@ + $info{$stocks,"high"}=$rows[5][1]; + $info{$stocks,"low"}=$rows[6][1]; + } -+ last SWITCH; ++ last SWITCH; + }; + # style=bond + /obligation/ && do { @@ -239,7 +241,7 @@ + ($info{$stocks, "symbol"}=$rows[3][0]) =~ s/\W(.+)$//g; + ($info{$stocks,"currency"}=$rows[0][1]) =~ s/[^A-Z]//g; + -+ } ++ } + foreach $ts ($te->table_state(4, 0)){ + @rows=$ts->rows; + $info{$stocks, "last"}=$rows[0][1]; @@ -256,7 +258,7 @@ + $info{$stocks,"high"}=$rows[5][1]; + $info{$stocks,"low"}=$rows[6][1]; + } -+ last SWITCH; ++ last SWITCH; + }; + # style=fund + /opcvm/ && do { @@ -295,12 +297,77 @@ - last ASSIGN; - }; - } -- } -- } ++ foreach $ts ($te->table_state(3, 0)){ ++ @rows=$ts->rows; ++ $info{$stocks, "name"}=$rows[0][0]; ++ $info{$stocks, "symbol"}=$rows[2][1]; ++ ($info{$stocks,"currency"}=$rows[0][1]) =~ s/[^A-Z]//g; ++ ($info{$stocks,"last"}=$rows[0][1]) =~ s/[^0-9|.]//g; ++ $info{$stocks,"p_change"}=$rows[0][2]; ++ $quoter->store_date(%info, $stocks, {eurodate => $rows[2][3]}); ++ } ++ foreach $ts ($te->table_state(7, 7)){ ++ @rows=$ts->rows; ++ my $nav; ++ ($nav=$rows[0][1]) =~ s/[^0-9.]*//g; ++ ($info{$stocks,"nav"}=($nav * 1000000)); ++ } ++ last SWITCH; ++ }; ++ #style=warrant ++ /warrant/ && do { ++ foreach $ts ($te->table_state(2, 0)){ ++ @rows=$ts->rows; ++ $info{$stocks, "name"}=$rows[0][0]; ++ $info{$stocks, "exchange"}=$rows[3][1]; ++ ($info{$stocks, "symbol"}=$rows[3][0]) =~ s/\W(.+)$//g; ++ } ++ foreach $ts ($te->table_state(3, 0)){ ++ @rows=$ts->rows; ++ $info{$stocks, "last"}=$rows[2][1]; ++ $info{$stocks, "success"}=1; ++ $info{$stocks, "method"}="lerevenu"; ++ $info{$stocks,"currency"}=$rows[9][1]; ++ $quoter->store_date(%info, $stocks, {eurodate => $rows[0][1]}); ++ $info{$stocks,"p_change"}=$rows[3][1]; ++ $info{$stocks,"volume"}=$rows[7][1]; ++ $info{$stocks,"open"}=$rows[4][1]; ++ $info{$stocks,"high"}=$rows[5][1]; ++ $info{$stocks,"low"}=$rows[6][1]; ++ } ++ last SWITCH; ++ }; ++ #style=indice ++ /indice/ && do { ++ foreach $ts ($te->table_state(2, 0)){ ++ @rows=$ts->rows; ++ $info{$stocks, "name"}=$rows[0][0]; ++ $info{$stocks, "exchange"}=$rows[3][1]; ++ ($info{$stocks, "symbol"}=$rows[3][0]) =~ s/\W(.+)$//g; ++ } ++ foreach $ts ($te->table_state(5, 1)){ ++ @rows=$ts->rows; ++ $info{$stocks, "last"}=$rows[2][1]; ++ $info{$stocks, "success"}=1; ++ $info{$stocks, "method"}="lerevenu"; ++ $quoter->store_date(%info, $stocks, {eurodate => $rows[0][1]}); ++ $info{$stocks,"p_change"}=$rows[3][1]; ++ $info{$stocks,"volume"}=$rows[7][1]; ++ $info{$stocks,"open"}=$rows[4][1]; ++ $info{$stocks,"high"}=$rows[5][1]; ++ $info{$stocks,"low"}=$rows[6][1]; ++ } ++ last SWITCH; ++ }; ++ { ++ $info {$stocks,"success"} = 0; ++ $info {$stocks,"errormsg"} = "Parse error SWITCH"; + } + } - foreach $ts ($te->table_state(8, 3)){ - @rows=$ts->rows; - foreach $row ($ts->rows) { -- ASSIGN: for ( @$row[0] ){ +- ASSIGN: for ( @$row[0] ){ - /Isin/ && do { - # GnuCash - $info{$stocks, "symbol"}=@$row[1]; @@ -309,7 +376,7 @@ - } - } - } -- last SWITCH; +- last SWITCH; - }; - # style=fund - /SICAVetFCP/ && do { @@ -330,7 +397,7 @@ - foreach $ts ($te->table_state(9, 7)){ - @rows=$ts->rows; - foreach $row ($ts->rows) { -- ASSIGN: for ( @$row[0] ){ +- ASSIGN: for ( @$row[0] ){ - /Actif/ && do { - my $nav; - $nav=@$row[1]; @@ -344,7 +411,7 @@ - foreach $ts ($te->table_state(9, 9)){ - @rows=$ts->rows; - foreach $row ($ts->rows) { -- ASSIGN: for ( @$row[0] ){ +- ASSIGN: for ( @$row[0] ){ - /ISIN/ && do { - # GnuCash - ($info{$stocks, "symbol"}=@$row[1]) =~ s/\s*//g; @@ -353,18 +420,18 @@ - } - } - } -- last SWITCH; +- last SWITCH; - }; - # style=warrant -- /Bons&Warrants/ && do { +- /Bons&Warrants/ && do { - foreach $ts ($te->table_state(5, 0)){ - @rows=$ts->rows; - $info{$stocks, "name"}=$rows[0][0]; -- } +- } - foreach $ts ($te->table_state(7, 1)){ - @rows=$ts->rows; - foreach $row ($ts->rows) { -- ASSIGN: for ( @$row[0] ){ +- ASSIGN: for ( @$row[0] ){ - /Dernier/ && do { - ($info{$stocks, "last"}=@$row[1]) =~ s/[^0-9.-]*//g; - ($info{$stocks, "close"}=@$row[1]) =~ s/[^0-9.-]*//g; @@ -403,7 +470,7 @@ - foreach $ts ($te->table_state(6, 8)){ - @rows=$ts->rows; - foreach $row ($ts->rows) { -- ASSIGN: for ( @$row[0] ){ +- ASSIGN: for ( @$row[0] ){ - /Isin/ && do { - # GnuCash - $info{$stocks, "symbol"}=@$row[1]; @@ -411,21 +478,21 @@ - }; - } - } -- + - } - } -- last SWITCH; +- last SWITCH; - }; - # style=indice -- /Indices/ && do { +- /Indices/ && do { - foreach $ts ($te->table_state(5, 0)){ - @rows=$ts->rows; - $info{$stocks, "name"}=$rows[0][0]; -- } +- } - foreach $ts ($te->table_state(7, 1)){ - @rows=$ts->rows; - foreach $row ($ts->rows) { -- ASSIGN: for ( @$row[0] ){ +- ASSIGN: for ( @$row[0] ){ - /Dernier/ && do { - ($info{$stocks, "last"}=@$row[1]) =~ s/[^0-9.-]*//g; - ($info{$stocks, "close"}=@$row[1]) =~ s/[^0-9.-]*//g; @@ -460,7 +527,7 @@ - foreach $ts ($te->table_state(7, 2)){ - @rows=$ts->rows; - foreach $row ($ts->rows) { -- ASSIGN: for ( @$row[0] ){ +- ASSIGN: for ( @$row[0] ){ - /Isin/ && do { - # GnuCash - $info{$stocks, "symbol"}=@$row[1]; @@ -470,102 +537,33 @@ - } - } - } -- last SWITCH; +- last SWITCH; - }; - { - $info {$stocks,"success"} = 0; - $info {$stocks,"errormsg"} = "Parse error"; -- } -+ foreach $ts ($te->table_state(3, 0)){ -+ @rows=$ts->rows; -+ $info{$stocks, "name"}=$rows[0][0]; -+ $info{$stocks, "symbol"}=$rows[2][1]; -+ ($info{$stocks,"currency"}=$rows[0][1]) =~ s/[^A-Z]//g; -+ ($info{$stocks,"last"}=$rows[0][1]) =~ s/[^0-9|.]//g; -+ $info{$stocks,"p_change"}=$rows[0][2]; -+ $quoter->store_date(%info, $stocks, {eurodate => $rows[2][3]}); -+ } -+ foreach $ts ($te->table_state(7, 7)){ -+ @rows=$ts->rows; -+ my $nav; -+ ($nav=$rows[0][1]) =~ s/[^0-9.]*//g; -+ ($info{$stocks,"nav"}=($nav * 1000000)); -+ } -+ last SWITCH; -+ }; -+ #style=warrant -+ /warrant/ && do { -+ foreach $ts ($te->table_state(2, 0)){ -+ @rows=$ts->rows; -+ $info{$stocks, "name"}=$rows[0][0]; -+ $info{$stocks, "exchange"}=$rows[3][1]; -+ ($info{$stocks, "symbol"}=$rows[3][0]) =~ s/\W(.+)$//g; -+ } -+ foreach $ts ($te->table_state(3, 0)){ -+ @rows=$ts->rows; -+ $info{$stocks, "last"}=$rows[2][1]; -+ $info{$stocks, "success"}=1; -+ $info{$stocks, "method"}="lerevenu"; -+ $info{$stocks,"currency"}=$rows[9][1]; -+ $quoter->store_date(%info, $stocks, {eurodate => $rows[0][1]}); -+ $info{$stocks,"p_change"}=$rows[3][1]; -+ $info{$stocks,"volume"}=$rows[7][1]; -+ $info{$stocks,"open"}=$rows[4][1]; -+ $info{$stocks,"high"}=$rows[5][1]; -+ $info{$stocks,"low"}=$rows[6][1]; -+ } -+ last SWITCH; -+ }; -+ #style=indice -+ /indice/ && do { -+ foreach $ts ($te->table_state(2, 0)){ -+ @rows=$ts->rows; -+ $info{$stocks, "name"}=$rows[0][0]; -+ $info{$stocks, "exchange"}=$rows[3][1]; -+ ($info{$stocks, "symbol"}=$rows[3][0]) =~ s/\W(.+)$//g; -+ } -+ foreach $ts ($te->table_state(5, 1)){ -+ @rows=$ts->rows; -+ $info{$stocks, "last"}=$rows[2][1]; -+ $info{$stocks, "success"}=1; -+ $info{$stocks, "method"}="lerevenu"; -+ $quoter->store_date(%info, $stocks, {eurodate => $rows[0][1]}); -+ $info{$stocks,"p_change"}=$rows[3][1]; -+ $info{$stocks,"volume"}=$rows[7][1]; -+ $info{$stocks,"open"}=$rows[4][1]; -+ $info{$stocks,"high"}=$rows[5][1]; -+ $info{$stocks,"low"}=$rows[6][1]; -+ } -+ last SWITCH; -+ }; -+ { -+ $info {$stocks,"success"} = 0; -+ $info {$stocks,"errormsg"} = "Parse error SWITCH"; -+ } -+ } -+ + -+ } + } + else { + $info{$stocks, "success"}=0; + $info{$stocks, "errormsg"}="Error retreiving $stocks "; -+ }; ++ }; } - - + else { + $info{$stocks, "success"}=0; + $info{$stocks, "errormsg"}="Error retreiving $stocks "; -+ }; - } ++ }; + } else { $info{$stocks, "success"}=0; $info{$stocks, "errormsg"}="Error retreiving $stocks "; - } -- } +- } + }; + -+ } ++ } + return wantarray() ? %info : %info; return %info; ++++++ perl-Finance-Quote-debian-03_whatis.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -1,31 +1,37 @@ -diff -ruN ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/AEX.pm lib/Finance/Quote/AEX.pm ---- ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/AEX.pm 2005-11-17 07:49:17.000000000 +0100 -+++ ./lib/Finance/Quote/AEX.pm 2008-02-03 17:31:39.000000000 +0100 -@@ -559,7 +559,7 @@ +Bart Martens <bartm@debian.org> +Fixes manpage-has-bad-whatis-entry. + +Index: lib/Finance/Quote/AEX.pm +=================================================================== +--- lib/Finance/Quote/AEX.pm.orig ++++ lib/Finance/Quote/AEX.pm +@@ -165,7 +165,7 @@ sub aex { =head1 NAME --Finance::Quote::AEX Obtain quotes from Amsterdam Euronext eXchange -+Finance::Quote::AEX - Obtain quotes from Amsterdam Euronext eXchange +-Finance::Quote::AEX Obtain quotes from Amsterdam Euronext eXchange ++Finance::Quote::AEX - Obtain quotes from Amsterdam Euronext eXchange =head1 SYNOPSIS -diff -ruN ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/AIAHK.pm lib/Finance/Quote/AIAHK.pm ---- ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/AIAHK.pm 2006-09-11 16:08:47.000000000 +0200 -+++ ./lib/Finance/Quote/AIAHK.pm 2008-02-03 17:31:56.000000000 +0100 -@@ -139,7 +139,7 @@ +Index: lib/Finance/Quote/AIAHK.pm +=================================================================== +--- lib/Finance/Quote/AIAHK.pm.orig ++++ lib/Finance/Quote/AIAHK.pm +@@ -139,7 +139,7 @@ sub aiahk { =head1 NAME --Finance::Quote::AIAHK Obtain quotes from American International Assurance -+Finance::Quote::AIAHK - Obtain quotes from American International Assurance +-Finance::Quote::AIAHK Obtain quotes from American International Assurance ++Finance::Quote::AIAHK - Obtain quotes from American International Assurance =head1 SYNOPSIS -diff -ruN ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/ASEGR.pm lib/Finance/Quote/ASEGR.pm ---- ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/ASEGR.pm 2005-05-05 01:51:11.000000000 +0200 -+++ ./lib/Finance/Quote/ASEGR.pm 2008-02-03 17:32:10.000000000 +0100 -@@ -111,7 +111,7 @@ +Index: lib/Finance/Quote/ASEGR.pm +=================================================================== +--- lib/Finance/Quote/ASEGR.pm.orig ++++ lib/Finance/Quote/ASEGR.pm +@@ -111,7 +111,7 @@ sub asegr { =head1 NAME @@ -34,10 +40,11 @@ =head1 SYNOPSIS -diff -ruN ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/BMONesbittBurns.pm lib/Finance/Quote/BMONesbittBurns.pm ---- ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/BMONesbittBurns.pm 2007-01-08 00:23:20.000000000 +0100 -+++ ./lib/Finance/Quote/BMONesbittBurns.pm 2008-02-03 17:32:21.000000000 +0100 -@@ -174,7 +174,7 @@ +Index: lib/Finance/Quote/BMONesbittBurns.pm +=================================================================== +--- lib/Finance/Quote/BMONesbittBurns.pm.orig ++++ lib/Finance/Quote/BMONesbittBurns.pm +@@ -174,7 +174,7 @@ sub bmonesbittburns { =head1 NAME @@ -46,10 +53,11 @@ =head1 SYNOPSIS -diff -ruN ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/Bourso.pm lib/Finance/Quote/Bourso.pm ---- ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/Bourso.pm 2006-12-31 22:21:31.000000000 +0100 -+++ ./lib/Finance/Quote/Bourso.pm 2008-02-03 17:32:30.000000000 +0100 -@@ -383,7 +383,7 @@ +Index: lib/Finance/Quote/Bourso.pm +=================================================================== +--- lib/Finance/Quote/Bourso.pm.orig ++++ lib/Finance/Quote/Bourso.pm +@@ -274,7 +274,7 @@ sub bourso { =head1 NAME @@ -58,10 +66,11 @@ =head1 SYNOPSIS -diff -ruN ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/LeRevenu.pm lib/Finance/Quote/LeRevenu.pm ---- ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/LeRevenu.pm 2006-12-31 21:22:27.000000000 +0100 -+++ ./lib/Finance/Quote/LeRevenu.pm 2008-02-03 17:32:40.000000000 +0100 -@@ -411,7 +411,7 @@ +Index: lib/Finance/Quote/LeRevenu.pm +=================================================================== +--- lib/Finance/Quote/LeRevenu.pm.orig ++++ lib/Finance/Quote/LeRevenu.pm +@@ -287,7 +287,7 @@ sub lerevenu { =head1 NAME @@ -70,10 +79,11 @@ =head1 SYNOPSIS -diff -ruN ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/TSP.pm lib/Finance/Quote/TSP.pm ---- ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/TSP.pm 2007-01-02 02:01:49.000000000 +0100 -+++ ./lib/Finance/Quote/TSP.pm 2008-02-03 17:32:52.000000000 +0100 -@@ -145,7 +145,7 @@ +Index: lib/Finance/Quote/TSP.pm +=================================================================== +--- lib/Finance/Quote/TSP.pm.orig ++++ lib/Finance/Quote/TSP.pm +@@ -152,7 +152,7 @@ sub tsp { =head1 NAME @@ -82,10 +92,11 @@ =head1 SYNOPSIS -diff -ruN ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/USFedBonds.pm lib/Finance/Quote/USFedBonds.pm ---- ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/USFedBonds.pm 2005-10-22 23:33:17.000000000 +0200 -+++ ./lib/Finance/Quote/USFedBonds.pm 2008-02-03 17:33:06.000000000 +0100 -@@ -162,9 +162,7 @@ +Index: lib/Finance/Quote/USFedBonds.pm +=================================================================== +--- lib/Finance/Quote/USFedBonds.pm.orig ++++ lib/Finance/Quote/USFedBonds.pm +@@ -164,9 +164,7 @@ sub treasury { =head1 NAME ++++++ perl-Finance-Quote-debian-04_deka.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -1,6 +1,11 @@ ---- ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/Deka.pm 2007-01-01 00:20:55.000000000 +0100 -+++ ./lib/Finance/Quote/Deka.pm 2008-02-03 17:24:07.000000000 +0100 -@@ -62,8 +62,7 @@ +Bart Martens <bartm@debian.org> +Closes: #431293. + +Index: lib/Finance/Quote/Deka.pm +=================================================================== +--- lib/Finance/Quote/Deka.pm.orig ++++ lib/Finance/Quote/Deka.pm +@@ -62,8 +62,7 @@ sub deka if (!$response -> is_success()) { $info{$stock,"errormsg"} = "HTTP failure"; } else { @@ -10,8 +15,8 @@ $te->parse($response->content); foreach my $ts ($te->table_states) { # foreach my $row ($ts->rows) { -@@ -73,16 +72,34 @@ - +@@ -73,16 +72,34 @@ sub deka + foreach my $row ($ts->rows) { next if !defined $$row[0] || !defined $$row[1]; - $info{$stock,"name"} = $$row[0]; ++++++ perl-Finance-Quote-debian-06_seb.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -1,6 +1,11 @@ ---- ../orig/libfinance-quote-perl-1.13/lib/Finance/Quote/SEB.pm 2005-03-20 02:44:13.000000000 +0100 -+++ ./lib/Finance/Quote/SEB.pm 2008-06-29 17:34:01.000000000 +0200 -@@ -119,7 +119,7 @@ +Bart Martens <bartm@debian.org> +Fixes broken link. + +Index: lib/Finance/Quote/SEB.pm +=================================================================== +--- lib/Finance/Quote/SEB.pm.orig ++++ lib/Finance/Quote/SEB.pm +@@ -121,7 +121,7 @@ Unfortunately there is no unique identif Therefore the complete fund name must be given, including spaces, case is important. ++++++ perl-Finance-Quote-fsf-address.patch ++++++ --- /var/tmp/diff_new_pack.WZi3t1/_old 2013-01-31 16:36:08.000000000 +0100 +++ /var/tmp/diff_new_pack.WZi3t1/_new 2013-01-31 16:36:08.000000000 +0100 @@ -1,7 +1,7 @@ -Index: finance-quote/lib/Finance/Quote.pm +Index: Finance-Quote-1.18/lib/Finance/Quote.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote.pm -+++ finance-quote/lib/Finance/Quote.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote.pm ++++ Finance-Quote-1.18/lib/Finance/Quote.pm @@ -18,8 +18,8 @@ # # You should have received a copy of the GNU General Public License @@ -13,10 +13,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/AEX.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/AEX.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/AEX.pm -+++ finance-quote/lib/Finance/Quote/AEX.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/AEX.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/AEX.pm @@ -22,8 +22,8 @@ # # You should have received a copy of the GNU General Public License @@ -28,10 +28,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/ASEGR.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/ASEGR.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/ASEGR.pm -+++ finance-quote/lib/Finance/Quote/ASEGR.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/ASEGR.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/ASEGR.pm @@ -16,8 +16,8 @@ # # You should have received a copy of the GNU General Public License @@ -43,10 +43,10 @@ require 5.005; use strict; -Index: finance-quote/lib/Finance/Quote/ASX.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/ASX.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/ASX.pm -+++ finance-quote/lib/Finance/Quote/ASX.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/ASX.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/ASX.pm @@ -19,8 +19,8 @@ # # You should have received a copy of the GNU General Public License @@ -58,10 +58,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/BMONesbittBurns.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/BMONesbittBurns.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/BMONesbittBurns.pm -+++ finance-quote/lib/Finance/Quote/BMONesbittBurns.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/BMONesbittBurns.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/BMONesbittBurns.pm @@ -14,8 +14,8 @@ # # You should have received a copy of the GNU General Public License @@ -73,10 +73,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/BSERO.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/BSERO.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/BSERO.pm -+++ finance-quote/lib/Finance/Quote/BSERO.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/BSERO.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/BSERO.pm @@ -16,8 +16,8 @@ # # You should have received a copy of the GNU General Public License @@ -88,10 +88,10 @@ require 5.005; use strict; -Index: finance-quote/lib/Finance/Quote/Bourso.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Bourso.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Bourso.pm -+++ finance-quote/lib/Finance/Quote/Bourso.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Bourso.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Bourso.pm @@ -23,8 +23,8 @@ # # You should have received a copy of the GNU General Public License @@ -103,10 +103,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/Cominvest.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Cominvest.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Cominvest.pm -+++ finance-quote/lib/Finance/Quote/Cominvest.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Cominvest.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Cominvest.pm @@ -18,8 +18,8 @@ # # You should have received a copy of the GNU General Public License @@ -118,10 +118,10 @@ # # # This code initially derived from Padzensky's work on package -Index: finance-quote/lib/Finance/Quote/Currencies.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Currencies.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Currencies.pm -+++ finance-quote/lib/Finance/Quote/Currencies.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Currencies.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Currencies.pm @@ -10,8 +10,8 @@ # # You should have received a copy of the GNU General Public License @@ -133,10 +133,10 @@ # package Finance::Quote::Currencies; use strict; -Index: finance-quote/lib/Finance/Quote/DWS.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/DWS.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/DWS.pm -+++ finance-quote/lib/Finance/Quote/DWS.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/DWS.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/DWS.pm @@ -20,8 +20,8 @@ # # You should have received a copy of the GNU General Public License @@ -148,10 +148,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/FTFunds.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/FTFunds.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/FTFunds.pm -+++ finance-quote/lib/Finance/Quote/FTFunds.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/FTFunds.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/FTFunds.pm @@ -25,8 +25,8 @@ # # You should have received a copy of the GNU General Public License @@ -163,10 +163,10 @@ # -Index: finance-quote/lib/Finance/Quote/FTPortfolios.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/FTPortfolios.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/FTPortfolios.pm -+++ finance-quote/lib/Finance/Quote/FTPortfolios.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/FTPortfolios.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/FTPortfolios.pm @@ -19,8 +19,8 @@ # # You should have received a copy of the GNU General Public License @@ -178,10 +178,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/Fidelity.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Fidelity.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Fidelity.pm -+++ finance-quote/lib/Finance/Quote/Fidelity.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Fidelity.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Fidelity.pm @@ -18,8 +18,8 @@ # # You should have received a copy of the GNU General Public License @@ -193,10 +193,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/Fool.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Fool.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Fool.pm -+++ finance-quote/lib/Finance/Quote/Fool.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Fool.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Fool.pm @@ -19,8 +19,8 @@ # # You should have received a copy of the GNU General Public License @@ -208,10 +208,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/GoldMoney.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/GoldMoney.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/GoldMoney.pm -+++ finance-quote/lib/Finance/Quote/GoldMoney.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/GoldMoney.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/GoldMoney.pm @@ -21,8 +21,8 @@ # # You should have received a copy of the GNU General Public License @@ -223,10 +223,10 @@ # # $Id: $ -Index: finance-quote/lib/Finance/Quote/HEX.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/HEX.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/HEX.pm -+++ finance-quote/lib/Finance/Quote/HEX.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/HEX.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/HEX.pm @@ -20,8 +20,8 @@ # # You should have received a copy of the GNU General Public License @@ -238,10 +238,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/LeRevenu.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/LeRevenu.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/LeRevenu.pm -+++ finance-quote/lib/Finance/Quote/LeRevenu.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/LeRevenu.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/LeRevenu.pm @@ -21,8 +21,8 @@ # # You should have received a copy of the GNU General Public License @@ -253,10 +253,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/ManInvestments.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/ManInvestments.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/ManInvestments.pm -+++ finance-quote/lib/Finance/Quote/ManInvestments.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/ManInvestments.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/ManInvestments.pm @@ -20,8 +20,8 @@ # # You should have received a copy of the GNU General Public License @@ -268,10 +268,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/NZX.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/NZX.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/NZX.pm -+++ finance-quote/lib/Finance/Quote/NZX.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/NZX.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/NZX.pm @@ -21,8 +21,8 @@ # # You should have received a copy of the GNU General Public License @@ -283,10 +283,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/Platinum.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Platinum.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Platinum.pm -+++ finance-quote/lib/Finance/Quote/Platinum.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Platinum.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Platinum.pm @@ -20,8 +20,8 @@ # # You should have received a copy of the GNU General Public License @@ -298,10 +298,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/SEB.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/SEB.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/SEB.pm -+++ finance-quote/lib/Finance/Quote/SEB.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/SEB.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/SEB.pm @@ -18,8 +18,8 @@ # # You should have received a copy of the GNU General Public License @@ -313,10 +313,10 @@ # # # This code was derived from the work on the packages Finance::Yahoo::* -Index: finance-quote/lib/Finance/Quote/StockHouseCanada.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/StockHouseCanada.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/StockHouseCanada.pm -+++ finance-quote/lib/Finance/Quote/StockHouseCanada.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/StockHouseCanada.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/StockHouseCanada.pm @@ -22,8 +22,8 @@ # # You should have received a copy of the GNU General Public License @@ -328,10 +328,10 @@ # -Index: finance-quote/lib/Finance/Quote/TSP.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/TSP.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/TSP.pm -+++ finance-quote/lib/Finance/Quote/TSP.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/TSP.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/TSP.pm @@ -21,8 +21,8 @@ # # You should have received a copy of the GNU General Public License @@ -343,10 +343,10 @@ # # # This code is derived from version 0.9 of the AEX.pm module. -Index: finance-quote/lib/Finance/Quote/TSX.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/TSX.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/TSX.pm -+++ finance-quote/lib/Finance/Quote/TSX.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/TSX.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/TSX.pm @@ -21,8 +21,8 @@ # # You should have received a copy of the GNU General Public License @@ -358,10 +358,10 @@ # # # This code derived from the work of Mika Laari in the package -Index: finance-quote/lib/Finance/Quote/Tdefunds.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Tdefunds.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Tdefunds.pm -+++ finance-quote/lib/Finance/Quote/Tdefunds.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Tdefunds.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Tdefunds.pm @@ -19,8 +19,8 @@ # # You should have received a copy of the GNU General Public License @@ -373,10 +373,10 @@ # package Finance::Quote::Tdefunds; require 5.005; -Index: finance-quote/lib/Finance/Quote/Tdwaterhouse.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Tdwaterhouse.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Tdwaterhouse.pm -+++ finance-quote/lib/Finance/Quote/Tdwaterhouse.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Tdwaterhouse.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Tdwaterhouse.pm @@ -19,8 +19,8 @@ # # You should have received a copy of the GNU General Public License @@ -388,10 +388,10 @@ # package Finance::Quote::Tdwaterhouse; require 5.005; -Index: finance-quote/lib/Finance/Quote/Tiaacref.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Tiaacref.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Tiaacref.pm -+++ finance-quote/lib/Finance/Quote/Tiaacref.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Tiaacref.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Tiaacref.pm @@ -18,8 +18,8 @@ # # You should have received a copy of the GNU General Public License @@ -403,10 +403,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/Troweprice.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Troweprice.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Troweprice.pm -+++ finance-quote/lib/Finance/Quote/Troweprice.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Troweprice.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Troweprice.pm @@ -18,8 +18,8 @@ # # You should have received a copy of the GNU General Public License @@ -418,10 +418,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/Trustnet.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Trustnet.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Trustnet.pm -+++ finance-quote/lib/Finance/Quote/Trustnet.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Trustnet.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Trustnet.pm @@ -19,8 +19,8 @@ # # You should have received a copy of the GNU General Public License @@ -433,10 +433,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/Union.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Union.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Union.pm -+++ finance-quote/lib/Finance/Quote/Union.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Union.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Union.pm @@ -20,8 +20,8 @@ # # You should have received a copy of the GNU General Public License @@ -448,12 +448,12 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/UserAgent.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/UserAgent.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/UserAgent.pm -+++ finance-quote/lib/Finance/Quote/UserAgent.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/UserAgent.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/UserAgent.pm @@ -14,8 +14,8 @@ - # + # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA @@ -463,10 +463,10 @@ # # This module defines our own LWP::UserAgent, in particular it allows # user-defined headers to be set which will be automatically added to -Index: finance-quote/lib/Finance/Quote/VWD.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/VWD.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/VWD.pm -+++ finance-quote/lib/Finance/Quote/VWD.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/VWD.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/VWD.pm @@ -22,8 +22,8 @@ # # You should have received a copy of the GNU General Public License @@ -478,10 +478,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/Yahoo/Asia.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Yahoo/Asia.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Yahoo/Asia.pm -+++ finance-quote/lib/Finance/Quote/Yahoo/Asia.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Yahoo/Asia.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Yahoo/Asia.pm @@ -20,8 +20,8 @@ # # You should have received a copy of the GNU General Public License @@ -493,10 +493,10 @@ # # This code derived from Padzensky's work on package Finance::YahooQuote, # but extends its capabilites to encompas a greater number of data sources. -Index: finance-quote/lib/Finance/Quote/Yahoo/Australia.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Yahoo/Australia.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Yahoo/Australia.pm -+++ finance-quote/lib/Finance/Quote/Yahoo/Australia.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Yahoo/Australia.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Yahoo/Australia.pm @@ -18,8 +18,8 @@ # # You should have received a copy of the GNU General Public License @@ -508,10 +508,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/Yahoo/Base.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Yahoo/Base.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Yahoo/Base.pm -+++ finance-quote/lib/Finance/Quote/Yahoo/Base.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Yahoo/Base.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Yahoo/Base.pm @@ -18,8 +18,8 @@ # # You should have received a copy of the GNU General Public License @@ -523,10 +523,10 @@ # # This code derived from Padzensky's work on package Finance::YahooQuote, # but extends its capabilites to encompas a greater number of data sources. -Index: finance-quote/lib/Finance/Quote/Yahoo/Brasil.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Yahoo/Brasil.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Yahoo/Brasil.pm -+++ finance-quote/lib/Finance/Quote/Yahoo/Brasil.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Yahoo/Brasil.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Yahoo/Brasil.pm @@ -18,8 +18,8 @@ # # You should have received a copy of the GNU General Public License @@ -538,10 +538,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/lib/Finance/Quote/Yahoo/Europe.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Yahoo/Europe.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Yahoo/Europe.pm -+++ finance-quote/lib/Finance/Quote/Yahoo/Europe.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Yahoo/Europe.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Yahoo/Europe.pm @@ -18,8 +18,8 @@ # # You should have received a copy of the GNU General Public License @@ -553,10 +553,10 @@ # # This code derived from Padzensky's work on package Finance::YahooQuote, # but extends its capabilites to encompas a greater number of data sources. -Index: finance-quote/lib/Finance/Quote/Yahoo/NZ.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Yahoo/NZ.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Yahoo/NZ.pm -+++ finance-quote/lib/Finance/Quote/Yahoo/NZ.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Yahoo/NZ.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Yahoo/NZ.pm @@ -18,8 +18,8 @@ # # You should have received a copy of the GNU General Public License @@ -568,10 +568,10 @@ # # This code gratefully based on the existing # Finance::Quote::Yahoo::Australia -Index: finance-quote/lib/Finance/Quote/Yahoo/USA.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Yahoo/USA.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Yahoo/USA.pm -+++ finance-quote/lib/Finance/Quote/Yahoo/USA.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Yahoo/USA.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Yahoo/USA.pm @@ -18,8 +18,8 @@ # # You should have received a copy of the GNU General Public License @@ -583,10 +583,10 @@ # # # This code derived from Padzensky's work on package Finance::YahooQuote, -Index: finance-quote/Documentation/License +Index: Finance-Quote-1.18/Documentation/License =================================================================== ---- finance-quote.orig/Documentation/License -+++ finance-quote/Documentation/License +--- Finance-Quote-1.18.orig/Documentation/License ++++ Finance-Quote-1.18/Documentation/License @@ -2,7 +2,7 @@ Version 2, June 1991 @@ -605,10 +605,10 @@ Also add information on how to contact you by electronic and paper mail. -Index: finance-quote/lib/Finance/Quote/Stooq.pm +Index: Finance-Quote-1.18/lib/Finance/Quote/Stooq.pm =================================================================== ---- finance-quote.orig/lib/Finance/Quote/Stooq.pm -+++ finance-quote/lib/Finance/Quote/Stooq.pm +--- Finance-Quote-1.18.orig/lib/Finance/Quote/Stooq.pm ++++ Finance-Quote-1.18/lib/Finance/Quote/Stooq.pm @@ -19,8 +19,8 @@ # # You should have received a copy of the GNU General Public License -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org