Finance::Quote Load Times

[John Ralls]

> On Oct 26, 2015, at 1:36 PM, David T. <sunfish62 at yahoo.com> wrote:
> 
> John,
> 
> I’m not sure if it’s part of the same problem, but I am seeing extended times when I try to update prices (Tools->Price Editor, Get Quotes). My most recent attempt took 23 seconds, which I think is longer than I remember. To be honest, my memory isn’t what it used to be, though, so this may just be noise in the discussion.
> 
> However, digging in my own instance of dtruss, I found that I had exact matches for the lines you pulled out of Jed’s file:
> 
> 1754/0xbd49:     10842 16980748     17 kevent64(0x3, 0x0, 0x0)		 = 1 0
> 1754/0xbd49:     10900      36     32 kevent64(0x3, 0xB0010588, 0x1)		 = 1 0
> 1766/0xbd94:    801338 20840963     35 stat64("./Net/LibIDN.pmc\0", 0x7FFF5FBEBD70, 0x2000)		 = -1 Err#60
> dtrace: 13701 dynamic variable drops with non-empty dirty list
> 1766/0xbd94:    801411 20464549     68 stat64("./Net/LibIDN.pm\0", 0x7FFF5FBEBCC0, 0x2000)		 = -1 Err#60
> 1766/0xbd94:    803418      15     11 read(0x3, "L_opening'};\n\t\t${*$self}{'_SSL_opened'} = -1;\n\t\t$DEBUG>=1 && DEBUG( \"fatal SSL error: $SSL_ERROR\" );\n\t\treturn $self->fatal_ssl_error();\n\t    }\n\n\t    $DEBUG>=2 && DEBUG('ssl handshake in progress' );\n\t    # connect failed because handshake needs to be compl", 0x2000)		 = 8192 0
> 1766/0xbd94:    805749       9      5 read(0x3, " ||= 0;\n    return $self->error(\"Invalid offset for SSL write\") if ($offset>$buf_len);\n    return 0 if ($offset == $buf_len);\n\n    $SSL_ERROR = undef;\n    my $written;\n    if ( $write_all ) {\n\tmy $data = $length < $buf_len-$offset ? substr($$buffer, $offse", 0x2000)		 = 8192 0
> 1766/0xbd94:    808078       9      5 read(0x3, "(%to);\n\tif ( $result ) {\n\t    $socket->blocking(0) if ! $was_blocking;\n\t    return $socket;\n\t} else {\n\t    # upgrade to SSL failed, downgrade socket to original class\n\t    if ( $original_class ) {\n\t\tbless($socket,$original_class);\n\t\t$socket->blocking(0) if", 0x2000)		 = 8192 0
> 1766/0xbd94:    810094       7      5 read(0x3, "r_trap) eq 'CODE') {\n\t$error_trap->($self, $self->errstr().\"\\n\".$self->get_ssleay_error());\n    } elsif ( ${*$self}{'_SSL_ioclass_upgraded'} ) {\n\t# downgrade only\n\t$self->stop_SSL;\n    } else {\n\t# kill socket\n\t$self->close\n    }\n    return;\n}\n\nsub get_ssle", 0x2000)		 = 8192 0
> 1766/0xbd94:    812398       8      5 read(0x3, "_;\n\t\t}\n\t    }\n\t    if ( defined( my $f = $arg_hash->{SSL_ca_file} )) {\n\t\tdie \"SSL_ca_file $f does not exist\" if ! -f $f;\n\t\tdie \"SSL_ca_file $f is not accessable\" if ! -r _;\n\t    }\n\t    if ( defined( my $d = $arg_hash->{SSL_ca_path} )) {\n\t\tdie \"only SSL_ca_", 0x2000)		 = 8192 0
> 1766/0xbd94:    813840       6      4 read(0x3, "free( $dh );\n\t    $rv || return IO::Socket::SSL->error( \"Failed to set DH from $f\" );\n\t} elsif ( my $dh = $arg_hash->{SSL_dh} ) {\n\t    # binary, e.g. DH*\n\t    Net::SSLeay::CTX_set_tmp_dh( $ctx,$dh )\n\t\t|| return IO::Socket::SSL->error( \"Failed to set DH fro", 0x2000)		 = 8192 0
> 
> My Mac is running 10.10.5.
> 
> Does this help the discussion?

Well, you’re the other person who’s complained about it taking too long to start up Finance::Quote, so it’s useful to know that  you’re seeing the same low-level symptom.

Regards,
John Ralls