MODALIAS=acpi:PNP0501: /lm_J4@q6Ҙo ._ub &=LV[(Qpackage LWP::Protocol::cpan; use strict; use base qw(LWP::Protocol); our $VERSION = '6.53'; require URI; require HTTP::Status; require HTTP::Response; our $CPAN; unless ($CPAN) { # Try to find local CPAN mirror via $CPAN::Config eval { require CPAN::Config; if($CPAN::Config) { my $urls = $CPAN::Config->{urllist}; if (ref($urls) eq "ARRAY") { my $file; for (@$urls) { if (/^file:/) { $file = $_; last; } } if ($file) { $CPAN = $file; } else { $CPAN = $urls->[0]; } } } }; $CPAN ||= "http://cpan.org/"; # last resort } # ensure that we don't chop of last part $CPAN .= "/" unless $CPAN =~ m,/$,; sub request { my($self, $request, $proxy, $arg, $size) = @_; # check proxy if (defined $proxy) { return HTTP::Response->new(HTTP::Status::RC_BAD_REQUEST, 'You can not proxy with cpan'); } # check method my $method = $request->method; unless ($method eq 'GET' || $method eq 'HEAD') { return HTTP::Response->new(HTTP::Status::RC_BAD_REQUEST, 'Library does not allow method ' . "$method for 'cpan:' URLs"); } my $path = $request->uri->path; $path =~ s,^/,,; my $response = HTTP::Response->new(HTTP::Status::RC_FOUND); $response->header("Location" => URI->new_abs($path, $CPAN)); $response; } 1; 5 l=J!86o i:/_ub &=L*VBl(? ELF>PH@е@8 @X8X8@@@Q2Q2,, $$Std PtdؕؕؕQtdRtdGNUGNU&˭$Doz+_,@a$@!HT@ JP(!(,/1479:;ADFHIJ(.Zh GEcCL&= Z|c ח zl3ҲF!nݧ#"A|BA$%˳l6; Ӆrlr|k |9LFcw'D-#goZz* ,CH{s:%M t, F"a Y X5 q  `Q  Ow `[{ q rCA TJ3 Tl I P\H X9 m l[ l_ q  VU I  [^ V% e_