--- a/dns-autoslave	Thu Jul 27 11:13:55 2006 +0000
+++ b/dns-autoslave	Mon Dec 18 08:35:17 2006 +0000
@@ -16,6 +16,7 @@
 use constant ME => basename $0;
 use constant CF_FILE => "/etc/".ME."/".ME.".conf";
 use constant LIB_DIR => "/etc/".ME;
+use constant PROMISC = 0;
 
 use constant CONFIG => (
     { CASE => 1 },
@@ -52,9 +53,9 @@
     my ($net, $mask);
     my ($pcap, $filter);
 
-    0 == Net::Pcap::lookupnet($Cf->dev, \($net, $mask, $err)) or die $err;
-    $pcap = Net::Pcap::open_live($Cf->dev, 1500, 0, 10, \$err) or die $err;
-    0 == Net::Pcap::compile($pcap, \$filter, $Cf->filter, 1, $mask) or die $@;
+    Net::Pcap::lookupnet($Cf->dev, \($net, $mask, $err)) == 0 or die $err;
+    $pcap = Net::Pcap::open_live($Cf->dev, 1500, PROMISC, 10, \$err) or die $err;
+    Net::Pcap::compile($pcap, \$filter, $Cf->filter, 1, $mask) == 0 or die $@;
     Net::Pcap::setfilter($pcap, $filter);
 
     ##
@@ -106,7 +107,7 @@
     my $src;
     {
 	# IP-Header
-	# im ersten Byte stecken Version+Header-LĂnge
+	# im ersten Byte stecken Version+Header-Länge
 	@_ = unpack("C x11 C4", $data);
 	my $hlen = ($_[0] & 0xf) * 4;
 	$src = join ".",@_[1..4];