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