diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/Protocol/nogo.pm | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/Protocol/nogo.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/Protocol/nogo.pm | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/Protocol/nogo.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/Protocol/nogo.pm deleted file mode 100644 index dcc54cfc7d..0000000000 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/Protocol/nogo.pm +++ /dev/null @@ -1,25 +0,0 @@ -package LWP::Protocol::nogo; -# If you want to disable access to a particular scheme, use this -# class and then call -# LWP::Protocol::implementor(that_scheme, 'LWP::Protocol::nogo'); -# For then on, attempts to access URLs with that scheme will generate -# a 500 error. - -use strict; - -our $VERSION = '6.61'; - -require HTTP::Response; -require HTTP::Status; -use parent qw(LWP::Protocol); - -sub request { - my($self, $request) = @_; - my $scheme = $request->uri->scheme; - - return HTTP::Response->new( - HTTP::Status::RC_INTERNAL_SERVER_ERROR, - "Access to \'$scheme\' URIs has been disabled" - ); -} -1; |