diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/LWP/Protocol/data.pm')
-rw-r--r-- | Master/tlpkg/tlperl/site/lib/LWP/Protocol/data.pm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/LWP/Protocol/data.pm b/Master/tlpkg/tlperl/site/lib/LWP/Protocol/data.pm index c29c3b4f919..3b256528a4f 100644 --- a/Master/tlpkg/tlperl/site/lib/LWP/Protocol/data.pm +++ b/Master/tlpkg/tlperl/site/lib/LWP/Protocol/data.pm @@ -1,15 +1,13 @@ package LWP::Protocol::data; - +$LWP::Protocol::data::VERSION = '6.25'; # Implements access to data:-URLs as specified in RFC 2397 use strict; -use vars qw(@ISA); require HTTP::Response; require HTTP::Status; -require LWP::Protocol; -@ISA = qw(LWP::Protocol); +use base qw(LWP::Protocol); use HTTP::Date qw(time2str); require LWP; # needs version number @@ -21,20 +19,20 @@ sub request # check proxy if (defined $proxy) { - return HTTP::Response->new( &HTTP::Status::RC_BAD_REQUEST, + return HTTP::Response->new( HTTP::Status::RC_BAD_REQUEST, 'You can not proxy with data'); } # check method my $method = $request->method; unless ($method eq 'GET' || $method eq 'HEAD') { - return HTTP::Response->new( &HTTP::Status::RC_BAD_REQUEST, + return HTTP::Response->new( HTTP::Status::RC_BAD_REQUEST, 'Library does not allow method ' . "$method for 'data:' URLs"); } my $url = $request->uri; - my $response = HTTP::Response->new( &HTTP::Status::RC_OK, "Document follows"); + my $response = HTTP::Response->new( HTTP::Status::RC_OK, "Document follows"); my $media_type = $url->media_type; |