| @@ -1,18 +1,4 @@ | |||
| #!/usr/bin/perl | |||
| # Copyright 2019 Pascal Gloor | |||
| # | |||
| # Licensed under the Apache License, Version 2.0 (the "License"); | |||
| # you may not use this file except in compliance with the License. | |||
| # You may obtain a copy of the License at | |||
| # | |||
| # http://www.apache.org/licenses/LICENSE-2.0 | |||
| # | |||
| # Unless required by applicable law or agreed to in writing, software | |||
| # distributed under the License is distributed on an "AS IS" BASIS, | |||
| # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | |||
| # See the License for the specific language governing permissions and | |||
| # limitations under the License. | |||
| use strict; | |||
| use IO::Socket::INET; | |||
| @@ -97,8 +83,8 @@ sub main { | |||
| $hdr .= pack("H2", "01"); # msg-type | |||
| $hdr .= pack("H6", "000000"); # transaction-id | |||
| $hdr .= pack("C", 1); # DUID option | |||
| $hdr .= pack("C", 6); # DUID length | |||
| $hdr .= pack("n", 1); # DUID option | |||
| $hdr .= pack("n", 6); # DUID length | |||
| } | |||
| else { # IPv4 | |||
| $sock = IO::Socket::INET->new( | |||