Help for this page

Select Code to Download


  1. or download this
       my $socket \*S1;
   if ($scheme eq "https") {
        tie(*S2, "Net::SSLeay::Handle", $socket);
        $socket = \*S2;
   }
  2. or download this
    for $sth (@sth) {
  my $object=new STH;
  $objects{$sth}=$object;
};
  3. or download this
     {my $io=new IO::Handle; tie(*$io, "Net::SSLeay::Handle", $socket);$so
+cket = \*$io;};

...
  $socket = \*$io;
 };
  4. or download this
     $global-net-ssleay-counter++;
 tie(*$global.....