--- a/http_resolver_aaaa.t
+++ b/http_resolver_aaaa.t
@@ -257,7 +257,7 @@ sub reply_handler {
 	use constant AAAA	=> 28;
 	use constant DNAME	=> 39;
 
-	use constant IN 	=> 1;
+	use constant IN		=> 1;
 
 	# default values
 
@@ -313,7 +313,7 @@ sub reply_handler {
 	} elsif ($name eq 'cname.example.net') {
 		$state->{cnamecnt}++;
 		if ($state->{cnamecnt} > 2) {
-		        $rcode = SERVFAIL;
+			$rcode = SERVFAIL;
 		}
 		push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl,
 			8, 5, 'alias', 0xc012);
@@ -597,18 +597,18 @@ sub dns_daemon {
 
 	my ($data, $recv_data);
 	my $socket = IO::Socket::INET->new(
-		LocalAddr    => '127.0.0.1',
-		LocalPort    => $port,
-		Proto        => 'udp',
+		LocalAddr => '127.0.0.1',
+		LocalPort => $port,
+		Proto => 'udp',
 	)
 		or die "Can't create listening socket: $!\n";
 
 	# track number of relevant queries
 
 	my %state = (
-		cnamecnt     => 0,
-		twocnt       => 0,
-		manycnt      => 0,
+		cnamecnt	=> 0,
+		twocnt		=> 0,
+		manycnt		=> 0,
 	);
 
 	# signal we are ready