Opened by GwenDragon at 2005-06-22 18:10
User since
2005-01-17
14761 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2005-01-17
14761 Artikel
Admin1
[quote=ptk,22.06.2005, 20:18]Oder du kannst deinen Bugreport auf rt.cpan.org ergaenzen...[/quote]
Habe den Patch aber nicht durchgehend getestet. Deswegen traue ich mich nicht, ihn in den Bugtacker zustellen. *bibber*
Ich weiß, das hört sich ziemlich dumm an.
Die diff-Ausgabe bei Net-SSL.new und Net-SSL.pm:
Habe den Patch aber nicht durchgehend getestet. Deswegen traue ich mich nicht, ihn in den Bugtacker zustellen. *bibber*
Ich weiß, das hört sich ziemlich dumm an.
Die diff-Ausgabe bei Net-SSL.new und Net-SSL.pm:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
328c328,339
<
---
>
> # +++ patched by GwenDragon 2005-06-14
> sub is_noproxy {
> my $dom = shift;
>
> my $np = $ENV{'NO_PROXY'} || '';
> my ( @nop ) = split /,/,$np;
>
> return grep(/$dom/, @nop);
> }
> # +++ patched by GwenDragon 2005-06-14
>
344,347c355
< $port || die("no port given for proxy server $proxy");
<
< $self->SUPER::connect($port, $iaddr)
< || die("proxy connect to $host:$port failed: $!");
---
> $port || die("no port given for proxy server $proxy");
351c359,375
< $peer_addr || die("no peer addr given");
---
> $peer_addr || die("no peer addr given");
>
> # +++ patched by GwenDragon 2005-06-14
> if (is_noproxy($peer_addr)) {
> $iaddr = gethostbyname($peer_addr);
> $iaddr || die("can't resolve $peer_addr, $!");
> $self->SUPER::connect($peer_port, $iaddr) #try connection
> || die("connect to $peer_addr:$peer_port failed: $!");
> return 1;
> }
> else {
> # +++ patched by GwenDragon 2005-06-14
> $self->SUPER::connect($port, $iaddr)
> || die("proxy connect to $host:$port failed: $!");
> # +++ patched by GwenDragon 2005-06-14
> }
> # +++ patched by GwenDragon 2005-06-14