Upgrade chrome's OpenSSL to same version Android ships with.

openssl/tools/c_rehash

 #!/usr/bin/perl
 
 
 # Perl c_rehash script, scan all files in a directory
 # and add symbolic links to their hash values.
 
 my $openssl;
 
 my $dir = "/usr/local/ssl";
 my $prefix = "/usr/local/ssl";
 
 if(defined $ENV{OPENSSL}) {
         $openssl = $ENV{OPENSSL};
 } else {
         $openssl = "openssl";
         $ENV{OPENSSL} = $openssl;
 }
 
-$ENV{PATH} .= ":$dir/bin";
+my $pwd;
+eval "require Cwd";
+if (defined(&Cwd::getcwd)) {
+        $pwd=Cwd::getcwd();
+} else {
+        $pwd=`pwd`; chomp($pwd);
+}
+my $path_delim = ($pwd =~ /^[a-z]\:/i) ? ';' : ':'; # DOS/Win32 or Unix delimiter?
+
+$ENV{PATH} = "$prefix/bin" . ($ENV{PATH} ? $path_delim . $ENV{PATH} : ""); # prefix our path
 
 if(! -x $openssl) {
         my $found = 0;
-        foreach (split /:/, $ENV{PATH}) {
+        foreach (split /$path_delim/, $ENV{PATH}) {
                 if(-x "$_/$openssl") {
                         $found = 1;
+                        $openssl = "$_/$openssl";
                         last;
                 }       
         }
         if($found == 0) {
                 print STDERR "c_rehash: rehashing skipped ('openssl' program not available)\n";
                 exit 0;
         }
 }
 
 if(@ARGV) {
         @dirlist = @ARGV;
 } elsif($ENV{SSL_CERT_DIR}) {
-        @dirlist = split /:/, $ENV{SSL_CERT_DIR};
+        @dirlist = split /$path_delim/, $ENV{SSL_CERT_DIR};
 } else {
         $dirlist[0] = "$dir/certs";
 }
 
+if (-d $dirlist[0]) {
+        chdir $dirlist[0];
+        $openssl="$pwd/$openssl" if (!-x $openssl);
+        chdir $pwd;
+}
 
 foreach (@dirlist) {
         if(-d $_ and -w $_) {
                 hash_dir($_);
         }
 }
 
 sub hash_dir {
         my %hashlist;
         print "Doing $_[0]\n";
@@ skipping 42 matching lines @@
 
 # Link a certificate to its subject name hash value, each hash is of
 # the form <hash>.<n> where n is an integer. If the hash value already exists
 # then we need to up the value of n, unless its a duplicate in which
 # case we skip the link. We check for duplicates by comparing the
 # certificate fingerprints
 
 sub link_hash_cert {
                 my $fname = $_[0];
                 $fname =~ s/'/'\\''/g;
-                my ($hash, $fprint) = `"$openssl" x509 -hash -fingerprint -noout -in '$fname'`;
+                my ($hash, $fprint) = `"$openssl" x509 -hash -fingerprint -noout -in "$fname"`;
                 chomp $hash;
                 chomp $fprint;
                 $fprint =~ s/^.*=//;
                 $fprint =~ tr/://d;
                 my $suffix = 0;
                 # Search for an unused hash filename
                 while(exists $hashlist{"$hash.$suffix"}) {
                         # Hash matches: if fingerprint matches its a duplicate cert
                         if($hashlist{"$hash.$suffix"} eq $fprint) {
                                 print STDERR "WARNING: Skipping duplicate certificate $fname\n";
                                 return;
                         }
                         $suffix++;
                 }
                 $hash .= ".$suffix";
                 print "$fname => $hash\n";
                 $symlink_exists=eval {symlink("",""); 1};
                 if ($symlink_exists) {
                         symlink $fname, $hash;
                 } else {
-                        system ("cp", $fname, $hash);
+                        open IN,"<$fname" or die "can't open $fname for read";
+                        open OUT,">$hash" or die "can't open $hash for write";
+                        print OUT <IN>; # does the job for small text files
+                        close OUT;
+                        close IN;
                 }
                 $hashlist{$hash} = $fprint;
 }
 
 # Same as above except for a CRL. CRL links are of the form <hash>.r<n>
 
 sub link_hash_crl {
                 my $fname = $_[0];
                 $fname =~ s/'/'\\''/g;
                 my ($hash, $fprint) = `"$openssl" crl -hash -fingerprint -noout -in '$fname'`;
@@ skipping 15 matching lines @@
                 print "$fname => $hash\n";
                 $symlink_exists=eval {symlink("",""); 1};
                 if ($symlink_exists) {
                         symlink $fname, $hash;
                 } else {
                         system ("cp", $fname, $hash);
                 }
                 $hashlist{$hash} = $fprint;
 }