- [ @$pfx, @$self, substr($uri->path, -3) eq '.gz' ? () : '--compressed',
- $uri->as_string ]
+ if ($uri->scheme =~ /\Ahttps?\z/i) {
+ my $cfg = $lei->_lei_cfg;
+ my $p = $cfg ? $cfg->urlmatch('http.Proxy', $$uri) : undef;
+ push(@opt, "--proxy=$p") if defined($p);
+ }
+ bless [ @$pfx, @$self, @opt, $uri->as_string ], ref($self);