Update of /cvsroot/fink/dists/10.7/stable/main/finkinfo/libs/perlmods
In directory vz-cvs-3.sog:/tmp/cvs-serv20449
Added Files:
finance-quote-pm.info finance-quote-pm.patch
Log Message:
works in 10.7
--- NEW FILE: finance-quote-pm.info ---
Info2: <<
Package: finance-quote-pm%type_pkg[perl]
Version: 1.17
Revision: 2
Depends: <<
perl%type_pkg[perl]-core,
libwww-pm%type_pkg[perl],
html-tableextract-pm%type_pkg[perl] (>= 2.10-1),
crypt-ssleay-pm%type_pkg[perl] (>= 0.51-1),
html-tree-pm%type_pkg[perl] (>=3.23-1)
<<
BuildDepends: fink (>= 0.24.12-1)
Source: mirror:cpan:authors/id/E/EC/ECOCODE/Finance-Quote-%v.tar.gz
Source-MD5: 446dba3837ffa395bffdea268824e0c1
PatchFile: %{ni}.patch
PatchFile-MD5: 85eb52dcb1a28f6fc87d98e675af14ff
Type: perl (5.8.6 5.8.8 5.10.0 5.12.3)
Distribution: (%type_pkg[perl] = 586) 10.4, (%type_pkg[perl] = 586) 10.5,
(%type_pkg[perl] = 5100) 10.5, (%type_pkg[perl] = 5100) 10.6, (%type_pkg[perl]
= 5123) 10.7, (%type_pkg[perl] = 588) 10.4, (%type_pkg[perl] = 588) 10.5,
(%type_pkg[perl] = 588) 10.6
UpdatePOD: True
DocFiles: MANIFEST Documentation/FAQ Documentation/Hackers-Guide
Documentation/README Documentation/License INSTALL
InfoTest: <<
TestScript: ONLINE_TEST=1 make test || exit 2
<<
InstallScript: <<
%{default_script}
mv %i/share/man %i/lib/perl5/%type_raw[perl]
<<
Description: Perl module to get stock quotes
DescDetail: <<
Provides access to time-delayed stockquotes from a number of sources. After
you've installed the package, try 'perldoc Finance::Quote'. This version makes
use of https for several quote sources.
<<
License: GPL
Maintainer: Dave Reiser <[email protected]>
Homepage: http://search.cpan.org/dist/Finance-Quote
<<
--- NEW FILE: finance-quote-pm.patch ---
diff -Nurd old/Base.pm new/Base.pm
--- old/lib/Finance/Quote/Yahoo/Base.pm 2009-10-05 13:39:57.000000000 -0400
+++ new/lib/Finance/Quote/Yahoo/Base.pm 2009-10-05 22:21:15.000000000 -0400
@@ -275,6 +275,17 @@
}
# Other exchanges here as needed.
}
+ #need to account for GBp values returned for funds without exchange set
+ if (!defined($exchange)) {
+ if ($info{$symbol,"currency"} eq "GBp") {
+ foreach my $field ($quoter->default_currency_fields) {
+ next unless ($info{$symbol,$field});
+ $info{$symbol,$field} =
+ $quoter->scale_field($info{$symbol,$field},0.01);
+ }
+ }
+ }
+
if (defined($info{$symbol,"currency"})) {
# Having converted London prices to GBP above we
------------------------------------------------------------------------------
BlackBerry® DevCon Americas, Oct. 18-20, San Francisco, CA
The must-attend event for mobile developers. Connect with experts.
Get tools for creating Super Apps. See the latest technologies.
Sessions, hands-on labs, demos & much more. Register early & save!
http://p.sf.net/sfu/rim-blackberry-1
_______________________________________________
Fink-commits mailing list
[email protected]
http://news.gmane.org/gmane.os.apple.fink.cvs
