summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorgregor herrmann <gregoa@debian.org>2021-03-12 17:12:58 +0100
committergregor herrmann <gregoa@debian.org>2021-03-12 17:12:58 +0100
commit71749d2451c97e82e08b54e2289994ad16a36edb (patch)
tree00daa745aaf95429d964a37a6657520126b0b692
parent909c13c5f5b8e9881dc3387680a2846134ab26f2 (diff)
parentebddbfb54b8d66aaaceb7daabaab810ccc71b382 (diff)
Update upstream source from tag 'upstream/1.32'
Update to upstream version '1.32' with Debian dir 49477637024a35bca7455665f5a2007317769e11
-rw-r--r--Changes3
-rw-r--r--META.json2
-rw-r--r--META.yml2
-rw-r--r--lib/Finance/QuoteHist.pm2
-rw-r--r--lib/Finance/QuoteHist/Generic.pm3
5 files changed, 8 insertions, 4 deletions
diff --git a/Changes b/Changes
index a5b3aca..fa1fd31 100644
--- a/Changes
+++ b/Changes
@@ -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
diff --git a/META.json b/META.json
index e6daf85..96edae9 100644
--- a/META.json
+++ b/META.json
@@ -43,6 +43,6 @@
}
},
"release_status" : "stable",
- "version" : "1.30",
+ "version" : "1.32",
"x_serialization_backend" : "JSON::PP version 4.02"
}
diff --git a/META.yml b/META.yml
index c52a788..cd68da2 100644
--- a/META.yml
+++ b/META.yml
@@ -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 {