646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
12 lines
517 B
Diff
12 lines
517 B
Diff
--- Device-OUI-1.04/lib/Device/OUI.pm.orig 2009-03-07 02:23:17.000000000 +0000
|
|
+++ Device-OUI-1.04/lib/Device/OUI.pm 2016-08-09 08:19:00.642799675 +0100
|
|
@@ -54,7 +54,7 @@
|
|
for my $x ( keys %hash ) {
|
|
if ( not defined $hash{ $x } ) { $hash{ $x } = '' }
|
|
}
|
|
- return $handle->{ $oui } = join( "\0", %hash );
|
|
+ return $handle->{ $oui } = join( "\0", map {$_,$hash{$_}} sort keys %hash );
|
|
} elsif ( my $x = $handle->{ $oui } ) {
|
|
return { split( "\0", $x ) };
|
|
}
|