diff options
-rwxr-xr-x | contrib/test/modemu.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/test/modemu.pl b/contrib/test/modemu.pl index 40d157a0a6..7704bf00c2 100755 --- a/contrib/test/modemu.pl +++ b/contrib/test/modemu.pl @@ -95,9 +95,10 @@ $name ||= 'modemu'; socket my $fd, AF_NETLINK, SOCK_RAW, NETLINK_KOBJECT_UEVENT or die "Can't create a netlink socket: $!"; +my $seqnum = 666; sub send_netlink { - my %props = @_; + my %props = (@_, SEQNUM => $seqnum++); my $props = join '', map { $_, '=', $props{$_}, "\0" } keys %props; my $head = pack 'a8NLLLNLLL', |