# NOTE: Derived from blib\lib\LWP\UserAgent.pm.  Changes made here will be lost.
package LWP::UserAgent;

sub env_proxy {
    my ($self) = @_;
    while(($k, $v) = each %ENV) {
	$k = lc($k);
	next unless $k =~ /^(.*)_proxy$/;
	$k = $1;
	if ($k eq 'no') {
	    $self->no_proxy(split(/\s*,\s*/, $v));
	}
	else {
	    $self->proxy($k, $v);
	}
    }
}

1;
