diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/Debug')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/Debug/TraceHTTP.pm | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/Debug/TraceHTTP.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/Debug/TraceHTTP.pm deleted file mode 100644 index a6cd44cbea..0000000000 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/LWP/Debug/TraceHTTP.pm +++ /dev/null @@ -1,29 +0,0 @@ -package LWP::Debug::TraceHTTP; - -# Just call: -# -# require LWP::Debug::TraceHTTP; -# LWP::Protocol::implementor('http', 'LWP::Debug::TraceHTTP'); -# -# to use this module to trace all calls to the HTTP socket object in -# programs that use LWP. - -use strict; -use parent 'LWP::Protocol::http'; - -our $VERSION = '6.61'; - -package # hide from PAUSE - LWP::Debug::TraceHTTP::Socket; - -use Data::Dump 1.13; -use Data::Dump::Trace qw(autowrap mcall); - -autowrap("LWP::Protocol::http::Socket" => "sock"); - -sub new { - my $class = shift; - return mcall("LWP::Protocol::http::Socket" => "new", undef, @_); -} - -1; |