upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-06-13 14:59:59 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

more detailed error reporting

Browse source
This commit is contained in:
Andreas Gustafsson 2000-06-25 02:30:18 +00:00
parent c2398b11d7
commit 0e3fa3bf10
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
bin/tests/system/testsock.pl
View file

@ -15,7 +15,7 @@
# ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
# SOFTWARE.
# $Id: testsock.pl,v 1.4 2000/06/25 01:40:05 gson Exp $
# $Id: testsock.pl,v 1.5 2000/06/25 02:30:18 gson Exp $
# Test whether the interfaces on 10.53.0.* are up.
@ -28,9 +28,11 @@ my $port = 0;
GetOptions("p=i" => \$port);
for ($id = 1 ; $id < 6 ; $id++) {
$sa = pack_sockaddr_in($port, pack("C4", 10, 53, 0, $id));
my $addr = pack("C4", 10, 53, 0, $id);
my $sa = pack_sockaddr_in($port, $addr);
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname("tcp"))
or die "$0: socket: $!\n";
bind(SOCK, $sa)
or die "$0: bind: $!\n";
or die sprintf("$0: bind(%s, %d): $!\n",
inet_ntoa($addr), $port);
}