Bump HTTP::Daemon test dependency to 6.12

[oalders]

No description provided.

[coveralls]

Pull Request Test Coverage Report for Build 360

• 0 of 0 changed or added relevant lines in 0 files are covered.
• No unchanged relevant lines lost coverage.
• Overall coverage remained the same at 94.279%

---

Totals
Change from base Build 347:	0.0%
Covered Lines:	758
Relevant Lines:	804

---

💛 - Coveralls

[skaji]

HTTP::Daemon 6.10 returns a correct $d->url so that we don't need workarounds anymore:

WWW-Mechanize/t/local/log-server

Lines 16 to 23 in f1a0235

	my $url = URI->new($d->url);
	if ($d->sockdomain == Socket::AF_INET) {
	$url->host( '127.0.0.1' );
	} elsif ($d->sockdomain == Socket::AF_INET6) {
	$url->host( '[::1]' );
	} else {
	die "unexpected sockdomain: " . $d->sockdomain;
	}

WWW-Mechanize/t/local/referer-server

Lines 10 to 17 in f1a0235

	my $lhurl = URI::URL->new( $d->url );
	if ($d->sockdomain == Socket::AF_INET) {
	$lhurl->host( '127.0.0.1' );
	} elsif ($d->sockdomain == Socket::AF_INET6) {
	$lhurl->host( '[::1]' );
	} else {
	die "unexpected sockdomain: " . $d->sockdomain;
	}

@oalders Could you remove these lines?

[oalders]

@skaji I have removed the lines. Is that what you had in mind?

[skaji]

@oalders Thank you. LGTM

FYI: We don't need Socket or URI module anymore, so you may want to remove them.

diff --git t/local/log-server t/local/log-server
index a77b1e6..c280cdd 100644
--- t/local/log-server
+++ 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 t/local/referer-server t/local/referer-server
index a6f206b..9ecd393 100644
--- t/local/referer-server
+++ 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) {

[oalders]

Thanks @skaji. I've applied your diff in 44649ef