malformed JSON string

[seannherdy]

When I attempt to pull a quote on symbol GSUM or BRK.A, my script throws this error and stops executing the main program:

malformed JSON string, neither array, object, number, string or atom, at character offset 0 (before "(end of string)") at /usr/local/share/perl5/5.32/Finance/QuoteHist/Yahoo.pm line 227.

Here's the code in question:

sub {
my $data = shift;
$data = decode_json($data);
my $data_result = $data->{chart}{result}[0] || {};
if ($target_mode eq "quote") {
return $json_quote_parse->($data_result);
}
elsif ($target_mode eq "split") {
return $json_split_parse->($data_result);
}
elsif ($target_mode eq "dividend") {
return $json_div_parse->($data_result);
}
else { die "unknown mode: $target_mode" }
};

The $data scalar is "" when this decode_json($data) is called on line 227. Would it be possible for Finance::QuoteHist::Yahoo to check for this and not attempt to parse empty JSON strings causing main script to exit?

[lcocea]

I second this. When there is no response from the server, 1.32 crashes with the message above ("malformed JSON string...") causing the calling script to fail, while 1.29 writes "WARNING: Could not fetch quote for some symbols..." and exits gracefully. Easy to demo with other stock symbols as well (CERPQ, EGXP, VDPH, TOT, PPR...)

Temporary workaround is to downgrade to the older version using cpanm (tests skipped for obvious reason):

cpanm --notest MSISK/Finance-QuoteHist-1.29.tar.gz

Using Strawberry Perl (v5.32.1) on Windows 10 x64.

Update: I have been unable to contact the developer. Wondering if this module is still maintained.