Changeset 20972 for lang/perl/LWP-UserAgent-ProxyConnect

Timestamp:

10/08/08 19:35:04 (5 years ago)

Author:

kamipo

Message:

lang/perl/LWP-UserAgent?-ProxyConnect?: little fix

Files:

• lang/perl/LWP-UserAgent-ProxyConnect/lib/LWP/UserAgent/ProxyConnect.pm (modified) (1 diff)

lang/perl/LWP-UserAgent-ProxyConnect/lib/LWP/UserAgent/ProxyConnect.pm

@@ -7 +7 @@
 use LWP::UserAgent;
 
-my $method;
+{
+    use LWP::Protocol::http ();
 
-{
-    use LWP::Protocol::http;
-    no strict 'refs';
+    my $orig = \&LWP::Protocol::http::request;
 
-    $method = delete ${'LWP::Protocol::http::'}{request};
-
-    *{'LWP::Protocol::http::request'} = sub {
+    my $method = sub {
         my ($self, $request, $proxy, $arg, $size, $timeout) = @_;
 
-        if ((my $scheme = $request->url->scheme) eq 'https' and $proxy) {
-            my ($username, $password) = split /:/, ($proxy->userinfo || '');
+        if ($request->url->scheme eq 'https' and $proxy) {
+            local $ENV{HTTPS_PROXY} = $proxy->host_port;
 
-            local $ENV{HTTPS_PROXY} = $proxy->host_port;
+            no warnings 'uninitialized';
+            my ($username, $password) = split /:/, $proxy->userinfo;
             local $ENV{HTTPS_PROXY_USERNAME} = $username;
             local $ENV{HTTPS_PROXY_PASSWORD} = $password;
+            use warnings 'uninitialized';
 
-            bless $self, LWP::Protocol::implementor($scheme);
+            bless $self, LWP::Protocol::implementor('https');
 
-            $method->($self, $request, undef, $arg, $size, $timeout);
+            $orig->($self, $request, undef, $arg, $size, $timeout);
         }
         else {
-            $method->(@_);
+            $orig->(@_);
         }
     };
+
+    no strict 'refs';
+    no warnings 'redefine';
+    *{'LWP::Protocol::http::request'} = $method;
 }