CLIX - Fazer Clix Custa Nix/CLIX-CD.cdr/mac/lib/auto/LWP/UserAgent/env_proxy.al

Text File | 1997-12-13 | 348b | 20 lines

# NOTE: Derived from :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;