diff options
author | gregor herrmann <gregoa@debian.org> | 2021-03-12 17:12:58 +0100 |
---|---|---|
committer | gregor herrmann <gregoa@debian.org> | 2021-03-12 17:12:58 +0100 |
commit | 71749d2451c97e82e08b54e2289994ad16a36edb (patch) | |
tree | 00daa745aaf95429d964a37a6657520126b0b692 | |
parent | 909c13c5f5b8e9881dc3387680a2846134ab26f2 (diff) | |
parent | ebddbfb54b8d66aaaceb7daabaab810ccc71b382 (diff) |
Update upstream source from tag 'upstream/1.32'
Update to upstream version '1.32'
with Debian dir 49477637024a35bca7455665f5a2007317769e11
-rw-r--r-- | Changes | 3 | ||||
-rw-r--r-- | META.json | 2 | ||||
-rw-r--r-- | META.yml | 2 | ||||
-rw-r--r-- | lib/Finance/QuoteHist.pm | 2 | ||||
-rw-r--r-- | lib/Finance/QuoteHist/Generic.pm | 3 |
5 files changed, 8 insertions, 4 deletions
@@ -1,5 +1,8 @@ Revision history for Perl extension Finance::QuoteHist. +1.32 Tue 09 Mar 2021 10:01:14 AM EST + - patched to handle negative epochs + 1.30 Fri 19 Feb 2021 01:47:26 PM EST - Updated yahoo module to use json API @@ -43,6 +43,6 @@ } }, "release_status" : "stable", - "version" : "1.30", + "version" : "1.32", "x_serialization_backend" : "JSON::PP version 4.02" } @@ -25,5 +25,5 @@ requires: LWP::UserAgent: '0' MIME::Base64: '0' Text::CSV: '0' -version: '1.30' +version: '1.32' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff --git a/lib/Finance/QuoteHist.pm b/lib/Finance/QuoteHist.pm index 7bcb40a..456442b 100644 --- a/lib/Finance/QuoteHist.pm +++ b/lib/Finance/QuoteHist.pm @@ -10,7 +10,7 @@ use Carp; use Finance::QuoteHist::Generic; -$VERSION = '1.30'; +$VERSION = '1.32'; my @DEFAULT_ENGINES = qw( Finance::QuoteHist::Yahoo diff --git a/lib/Finance/QuoteHist/Generic.pm b/lib/Finance/QuoteHist/Generic.pm index 3a2d1f0..831902d 100644 --- a/lib/Finance/QuoteHist/Generic.pm +++ b/lib/Finance/QuoteHist/Generic.pm @@ -672,7 +672,8 @@ sub date_normalize { $normal_date = ParseDate($m =~ /^\d+$/ ? "$y/$m/01" : "$m 01 $y"); } else { - if ($date =~ /^\d{10}$/) { + # allow for negative epochs + if ($date =~ /^-?\d+$/) { $normal_date = ParseDateString("epoch $date"); } else { |