home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
perl_ste.zip
/
auto
/
LWP
/
UserAgent
/
env_proxy.al
< prev
next >
Wrap
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;