Remove unused modules from test.

Diff provided by @skaji.
libwww-perl · Jun 8, 2020 · 4d18e42 · 4d18e42
1 parent 7699ca4
commit 4d18e42
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 7 deletions.
diff --git a/t/local/log-server b/t/local/log-server
@@ -3,7 +3,6 @@ use strict;
 use HTTP::Daemon ();
 use CGI 4.08;
 use Getopt::Long;
-use Socket ();
 
 $|++;
 
@@ -13,8 +12,7 @@ GetOptions(
 
 my $d = HTTP::Daemon->new or die;
 
-my $url = URI->new($d->url);
-print "$url\n";
+print $d->url, "\n";
 
 my ($filename,$logfile) = @ARGV[0,1];
 if ($filename) {

diff --git a/t/local/referer-server b/t/local/referer-server
@@ -1,14 +1,11 @@
 # Thanks to merlyn for nudging me and giving me this snippet!
 
 use HTTP::Daemon ();
-use URI::URL;
-use Socket ();
 
 $|++;
 
 my $d = HTTP::Daemon->new or die;
-my $lhurl = URI::URL->new( $d->url );
-print $lhurl->as_string, "\n";
+print $d->url, "\n";
 
 $counter = 5;
 while ($counter-- and my $c = $d->accept) {