Browse files

Updated https.p6 to work!

  • Loading branch information...
1 parent bb16c44 commit 4f0d19d32589c7382bfc8243551cc0bf95f0606b @azawawi committed Nov 17, 2012
Showing with 4 additions and 5 deletions.
  1. +1 −1 examples/https.p6
  2. +3 −4 lib/Net/Curl.pm6
View
2 examples/https.p6
@@ -14,7 +14,7 @@ curl_global_init(CURL_GLOBAL_DEFAULT);
my $curl = curl_easy_init;
if $curl {
- curl_easy_setopt($curl, CURLOPT_URL, "https://example.com/");
+ curl_easy_setopt($curl, CURLOPT_URL, "https://www.google.jo/");
if SKIP_PEER_VERIFICATION {
# If you want to connect to a site who isn't using a certificate that is
View
7 lib/Net/Curl.pm6
@@ -12,10 +12,9 @@ constant CURLINFO_STRING = 0x100000;
constant CURLOPT_URL is export = 10002;
constant CURLE_OK is export = 0;
constant CURLINFO_CONTENT_TYPE is export = CURLINFO_STRING + 18;
-constant CURLOPT_SSL_VERIFYPEE is export = 123;
-constant CURL_GLOBAL_DEFAULT is export = 123;
-constant CURLOPT_SSL_VERIFYPEER is export = 123;
-constant CURLOPT_SSL_VERIFYHOST is export = 123;
+constant CURL_GLOBAL_DEFAULT is export = 0x3;
+constant CURLOPT_SSL_VERIFYPEER is export = 0x40;
+constant CURLOPT_SSL_VERIFYHOST is export = 0x51;
# Start a libcurl easy session
sub curl_easy_init()

0 comments on commit 4f0d19d

Please sign in to comment.