in reply to Re^14: ActiveState Perl 10.x and Crypt::SSLeay not installed errors on Windows 2003
in thread ActiveState Perl 10.x and Crypt::SSLeay not installed errors on Windows 2003

And the answer to my own question is on line 41 of /perl510/lib/ActivePerl/PPM/Client.pm: 

    $arch .= sprintf "-%vd", substr($^V, 0, 2) if $] >= 5.008;

[download]

Which produces: 

C:\Perl510>perl -wle"print $]; print $^V; printf qq[-%vd], substr($^V,
+ 0, 2)"
5.010000
v5.10.0
-118.53

[download]

A few further questions arise:

  1. What is that sprintf trying to do? (What is pattern %vd besides the obvious:)
  2. How come other some other peoples copies aren't afflicted?
  3. Can anyone confirm their version of AS1000/1002 has the above line?
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

Replies are listed 'Best First'.
Re^16: ActiveState Perl 10.x and Crypt::SSLeay not installed errors on Windows 2003
by syphilis (Archbishop) on Mar 30, 2008 at 00:33 UTC
    I think you've found it. My ActivePerl/PPM/Client.pm (AS build 1002) is slightly different: 
    39:     unless ($arch) {
40:     $arch =  $Config{archname};
41:     if ($] >= 5.008) {
42:             my $vstring = sprintf "%vd", $^V;
43:             $vstring =~ s/\.\d+$//;
44:             $arch .= "-$vstring";
45:         }
46:     }

    [download]
    When I run the code that's inside that unless block it sets $arch to MSWin32-x86-multi-thread-5.10 yet I get the same as you when I run the one liner you presented. And $arch .= sprintf "-%vd", substr($^V, 0, 2) if $] >= 5.008; definitely appends -118.53 to $arch.

    But how come the difference betwen my PPM installation and your PPM installation ? (This should probably be raised on the PPM mailing list. I'm subscribed to that list but I don't recall seeing anything like this reported.)

    Cheers,
    Rob

    UPDATE: I've just unzipped ActivePerl-5.10.0.1002-MSWin32-x86-283697.zip to make sure that my Client.pm is the same as the Client.pm that ships with that source - and it is. It's therefore rather baffling that some others end up with a dfferent version of Client.pm when they install build 1002.
[reply]
[d/l]
[select]

      That fixed it. Replace my one line with your if block and: 

      C:\Perl510>ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
Downloading Crypt-SSLeay-0.57...done
Unpacking Crypt-SSLeay-0.57...done
Generating HTML for Crypt-SSLeay-0.57...done
Updating files in site area...done
  10 files installed
   7 files updated

      [download]

      Thanks. Now maybe yeah can get his to work...if he ever comes back and catches up on this thread.

      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
        Changed the Client.pm file line #41 from 5.008 to 5.010 and ran ppm install 
        ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
MSWin32-x86-multi-thread-5.10Downloading Crypt-SSLeay0.57...done
Unpacking Crypt-SSLeay-0.57...done
Generating HTML for Crypt-SSLeay-0.57...done
Updating files in site area...done
   1 file deleted
   4 files installed
   3 files unchanged
  10 files updated


$ perl testSSL.pl
LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
LWP::UserAgent::send_request: GET https://www.helsinki.fi/
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 495 bytes
LWP::UserAgent::request: Simple response: OK
HTTP/1.1 200 OK
Connection: close
Date: Mon, 31 Mar 2008 03:03:26 GMT
Accept-Ranges: bytes
ETag: "2f4131c-1ef-47a1d157"
Server: Apache
Content-Length: 495
Content-Type: text/html
Last-Modified: Thu, 31 Jan 2008 13:47:03 GMT
Client-Date: Mon, 31 Mar 2008 03:03:26 GMT
Client-Peer: 128.214.205.16:443
Client-Response-Num: 1
Client-SSL-Cert-Issuer: /C=FI/O=Sonera/CN=Sonera Class2 CA
Client-SSL-Cert-Subject: /C=FI/L=Helsinki/O=University of Helsinki/OU=
+IT Department/CN=www.helsinki.fi/emailAddress=webm
aster@helsinki.fi
Client-SSL-Cipher: DHE-RSA-AES256-SHA
Client-SSL-Warning: Peer certificate not verified
Title: University of Helsinki

<html>
<head>
<title>University of Helsinki</title>
</head>

<body>
<h1><a href="http://www.helsinki.fi/yliopisto/">University of Helsinki
+</a></h1>

This is the secure www server
of the University of Helsinki, Administration Office,
<a href="http://www.helsinki.fi/atk/">IT Department</a>.

<P>

Get the HY-CA certificate authority root certificate from
<a href="https://www.helsinki.fi/ca/">https://www.helsinki.fi/ca/</a>.
<P>

<hr>

<address>webmaster@helsinki.fi</address>

</body>
</html>

        [download]
        Everything works just fine now. What a pain in the proverbial bottom. Thanks to all who took the time to look at this. Not sure why Client.pm was wrong but I'm off to the races now!-)
[reply]
[d/l]
        I figured I'd give it a day or so :o) and I will check the HKEYs and the .def tonight when I'm back at the system. It would be nice for someone to track down the actual cause of this difugalty and make a fix. There is a lot of useless info on google as to the actual fix for this issue. Even more disconcerting is the fact that it workks for some and not for others. Why it things I had multiple versions of Perl on my install target is beyond me. This is the first perl install ever on it.-(
[reply]
      It's therefore rather baffling that some others end up with a dfferent version of Client.pm when they install build 1002.

      I have build 1000. But that doesn't explain why Gavin had the problem with 1002?

      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
        I guess the bottom line is that if someone else is tearing their hair out they may stumble up this thread albeit lengthy. Having to change /Perl/lib/ActivePerl/PPM/Client.pm is not optimal but it worked and I'm working and that is what counts:)
[reply]

In Section Seekers of Perl Wisdom