die if Net::Pcap can't be initialized
authorHeiko Schlittermann (JUMPER) <hs@schlittermann.de>
Mon, 19 Jan 2015 10:52:37 +0100
changeset 27 134405c3299c
parent 26 69db99842596
child 28 396bb8f13f95
die if Net::Pcap can't be initialized
dns-autoslave
--- a/dns-autoslave	Mon Aug 15 14:54:40 2011 +0200
+++ b/dns-autoslave	Mon Jan 19 10:52:37 2015 +0100
@@ -83,7 +83,7 @@
 	    or die "Error setting SIGTERM Handler: $!\n";
     close(STDIN); close(STDOUT); close(STDERR); close(PID);
     $0 = ME." [capturing]";
-    Net::Pcap::loop($pcap, -1, \&process, undef);
+    Net::Pcap::loop($pcap, -1, \&process, undef) == -1 and die Net::Pcap::geterr($pcap);
     warn "Exit.\n";
     unlink $Cf->pid;
     exit 0;