fixes from tony

2011-01-27 09:41:18 -06:00 · 2011-01-27 09:41:18 -06:00 · 22c05ad542
parent 008e527c0f
commit 22c05ad542
1 changed files with 2 additions and 7 deletions
--- a/scripts/perl/dhcp-inform.pl
+++ b/scripts/perl/dhcp-inform.pl
@ -61,12 +61,7 @@ while ($sock->recv($newmsg, 1024)) {
    }
    print "Sending option 66 as $opt_u\n";

-    $handle = IO::Socket::INET->new(Proto => 'udp',
-				    PeerPort => '68',
-				    LocalPort => '67',
-				    ReuseAddr => 1,
-				    PeerAddr => $dhcpreq->ciaddr(),
-				   ) or die "socket: $@";
-    $handle->send($dhcpresp->serialize())
+
+    $sock->send($dhcpresp->serialize())
  }
 }