perlbrewのproxy対応
perlbrew (http://search.cpan.org/~gugod/App-perlbrew/)を教えてもらって便利そうなので使ってみたけど、proxy対応していなかったので、環境変数から呼ぶようにしてみました。
これで環境変数にhttp_proxyがあればproxy使ってくれます。
もう少し真面目に書いてCPANにパッチ送ろうかな。。。
注意点としては、HTTP::Liteのproxyメソッドが、http://host:port/ のフォーマットを前提にしているので、最後にスラッシュがないとうまく動きません。(昔yumもそんなんだったな。。。)
$ diff -ub perlbrew.orig perlbrew
--- perlbrew.orig 2010-05-31 18:36:45.630114803 +0900 +++ perlbrew 2010-05-31 18:40:10.086114474 +0900 @@ -922,6 +922,7 @@ my $http_get = sub { my ($url, $cb) = @_; my $ua = HTTP::Lite->new; + $ua->proxy if exists $ENV{http_proxy}; my $loc = $url; my $status = $ua->request($loc) or die "Fail to get $loc";