# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1377518592 -7200
# Node ID b7fbb644ce4c510c4438ee1b49b3b90cab3f61a5
# Parent  e5132efc04136ea67e1cea7d002543b7f8e03b03
[perltidy]

diff -r e5132efc0413 -r b7fbb644ce4c dnsproxy
--- a/dnsproxy	Mon Aug 26 13:46:21 2013 +0200
+++ b/dnsproxy	Mon Aug 26 14:03:12 2013 +0200
@@ -29,15 +29,15 @@
 use Pod::Usage;
 
 my $opts = {
-    listen => [ '127.0.0.2' ],
+    listen => ['127.0.0.2'],
     port   => 53
 };
 
 GetOptions(
-    "h|help" => sub { pod2usage( -verbose => 0, -exitval => 0 ) },
+    "h|help"     => sub { pod2usage(-verbose => 0, -exitval => 0) },
     "l|listen=s" => $opts->{listen},
     "p|port=i"   => \$opts->{port},
-    "v|verbose=i"  => \$opts->{verbose}
+    "v|verbose=i" => \$opts->{verbose}
 ) or pod2usage();
 
 use File::Basename;
@@ -48,20 +48,20 @@
 use base qw(Net::Server::Fork);
 
 my $resolver = Net::DNS::Resolver->new;
-my %args = (
-    host => $opts->{listen},
-    port => "$opts->{port}/udp",
-    log_file => 'Sys::Syslog',
+my %args     = (
+    host         => $opts->{listen},
+    port         => "$opts->{port}/udp",
+    log_file     => 'Sys::Syslog',
     syslog_ident => $ME,
-    pid_file => "/var/run/$ME.pid",
-    background => 1
+    pid_file     => "/var/run/$ME.pid",
+    background   => 1
 );
 $args{log_level} = $opts->{verbose} if defined $opts->{verbose};
 dnsproxy->run(%args);
 
 sub process_request {
 
-    my $self = shift;	
+    my $self = shift;
     my $prop = $self->{server};
 
     die 'Sorry, udp only!' unless $prop->{udp_true};
@@ -78,6 +78,7 @@
         $r = $q;
         $r->header->qr(1);
         $r->header->ra(1);
+
         # everything else is just forwarded to our regular resolver
     } else {
         $r = $resolver->send($q);