diff options
| author | Tomek Mrugalski <tomek@isc.org> | 2022-01-19 20:14:16 +0100 |
|---|---|---|
| committer | Tomek Mrugalski <tomek@isc.org> | 2022-01-20 12:04:28 +0100 |
| commit | f6b8f48d1665c4487dedbcfa4dca435a0d67ddeb (patch) | |
| tree | 19926f31f56890bc8c7f5d3bc5b2e2c16b96794e /tests/DHCPv6/280-release-nohost.pl | |
| parent | 429a56d73c0f9f2edf400fd6313850a3ce4fd809 (diff) | |
| download | isc-dhcp-f6b8f48d1665c4487dedbcfa4dca435a0d67ddeb.tar.gz | |
[#189] Whitespace fixes in opened files
Diffstat (limited to 'tests/DHCPv6/280-release-nohost.pl')
| -rw-r--r-- | tests/DHCPv6/280-release-nohost.pl | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/tests/DHCPv6/280-release-nohost.pl b/tests/DHCPv6/280-release-nohost.pl index c17ff0c2..1eec2fa0 100644 --- a/tests/DHCPv6/280-release-nohost.pl +++ b/tests/DHCPv6/280-release-nohost.pl @@ -89,10 +89,10 @@ do { socket(SOCK, PF_INET6, SOCK_DGRAM, getprotobyname('udp')) || die; my $addr = inet_pton(AF_INET6, $All_DHCP_Servers); my $packet = $msg->packet(); - my $send_ret = send(SOCK, $packet, 0, + my $send_ret = send(SOCK, $packet, 0, pack_sockaddr_in6($server_port, $addr)); if (not defined($send_ret)) { - printf STDERR + printf STDERR "Error \%d sending DHCPv6 message;\n\%s\n", 0+$ERRNO, $ERRNO; exit(1); @@ -113,7 +113,7 @@ do { } my $rt_end_time = time() + $RT; - if (defined($mrd_end_time) && ($mrd_end_time > $rt_end_time)) { + if (defined($mrd_end_time) && ($mrd_end_time > $rt_end_time)) { $rt_end_time = $mrd_end_time; } @@ -130,11 +130,11 @@ do { if (@ready) { my $reply; my $recv_ret; - + $recv_ret = recv(SOCK, $reply, 1500, 0); if (not defined $recv_ret) { - printf STDERR - "Error \%d receiving DHCPv6 " . + printf STDERR + "Error \%d receiving DHCPv6 " . "message;\n\%s\n", 0+$ERRNO, $ERRNO; exit(1); @@ -148,16 +148,16 @@ do { } } -} until ($reply_msg || +} until ($reply_msg || (($MRC != 0) && ($count > $MRC)) || (defined($mrd_end_time) && ($mrd_end_time > time()))); unless ($reply_msg) { if (($MRC != 0) && ($count >= $MRC)) { - print STDERR + print STDERR "No reply after maximum retransmission count.\n"; } else { - print STDERR + print STDERR "No reply after maximum retransmission duration.\n"; } } @@ -172,4 +172,3 @@ if ($reply_msg && ($reply_msg->{msg_type} == $MSG_REPLY)) { #print Dumper($msg->packet()), "\n"; # #print "packet length: ", length($msg->packet()), "\n"; - |