diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/LWP/Protocol/nogo.pm')
-rw-r--r-- | Master/tlpkg/tlperl/site/lib/LWP/Protocol/nogo.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/LWP/Protocol/nogo.pm b/Master/tlpkg/tlperl/site/lib/LWP/Protocol/nogo.pm index 68150a722d5..a9b0e411ee7 100644 --- a/Master/tlpkg/tlperl/site/lib/LWP/Protocol/nogo.pm +++ b/Master/tlpkg/tlperl/site/lib/LWP/Protocol/nogo.pm @@ -4,20 +4,19 @@ package LWP::Protocol::nogo; # LWP::Protocol::implementor(that_scheme, 'LWP::Protocol::nogo'); # For then on, attempts to access URLs with that scheme will generate # a 500 error. - +$LWP::Protocol::nogo::VERSION = '6.25'; use strict; -use vars qw(@ISA); + require HTTP::Response; require HTTP::Status; -require LWP::Protocol; -@ISA = qw(LWP::Protocol); +use base qw(LWP::Protocol); sub request { my($self, $request) = @_; my $scheme = $request->uri->scheme; - + return HTTP::Response->new( - &HTTP::Status::RC_INTERNAL_SERVER_ERROR, + HTTP::Status::RC_INTERNAL_SERVER_ERROR, "Access to \'$scheme\' URIs has been disabled" ); } |