OS/2 Shareware BBS: 10 Tools/10-Tools.zip/perl_ste.zip/auto/LWP/UserAgent/env_proxy.al

Text File | 1997-11-28 | 373b | 20 lines

# 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;