[PATCH] LWP::Protocol::https.pm - $res undefined at line 50

David C Worenklein (dcw@gcm.com)
19 Oct 1998 12:58:39 -0400 

*** https.pm~   Mon Oct 19 12:11:27 1998
--- https.pm    Mon Oct 19 12:49:51 1998
***************
*** 45,57 ****
  }
  
  sub _get_sock_info
  {
      my $self = shift;
        LWP::Debug::trace("Checking socket info for $res");
      $self->SUPER::_get_sock_info(@_);
-     my($res, $sock) = @_;
      $res->header("Client-SSL-Cipher" => $sock->get_cipher);
      my $cert = $sock->get_peer_certificate;
      if ($cert) {
        $res->header("Client-SSL-Cert-Subject" => $cert->subject_name);
        $res->header("Client-SSL-Cert-Issuer" => $cert->issuer_name);
--- 45,57 ----
  }
  
  sub _get_sock_info
  {
      my $self = shift;
+     my($res, $sock) = @_;
        LWP::Debug::trace("Checking socket info for $res");
      $self->SUPER::_get_sock_info(@_);
      $res->header("Client-SSL-Cipher" => $sock->get_cipher);
      my $cert = $sock->get_peer_certificate;
      if ($cert) {
        $res->header("Client-SSL-Cert-Subject" => $cert->subject_name);
        $res->header("Client-SSL-Cert-Issuer" => $cert->issuer_name);