pyrox.dev / nixpkgs
lol
fork

Configure Feed

Select the types of activity you want to include in your feed.

nixpkgs / pkgs / development / perl-modules / Device-OUI-1.04-hash.patch
at 24.05-pre 11 lines 517 B view raw
Stig Palmquist perlPackages.DeviceMAC: init at 1.00
bd4b0149
1--- Device-OUI-1.04/lib/Device/OUI.pm.orig 2009-03-07 02:23:17.000000000 +0000 2+++ Device-OUI-1.04/lib/Device/OUI.pm 2016-08-09 08:19:00.642799675 +0100 3@@ -54,7 +54,7 @@ 4 for my $x ( keys %hash ) { 5 if ( not defined $hash{ $x } ) { $hash{ $x } = '' } 6 } 7- return $handle->{ $oui } = join( "\0", %hash ); 8+ return $handle->{ $oui } = join( "\0", map {$_,$hash{$_}} sort keys %hash ); 9 } elsif ( my $x = $handle->{ $oui } ) { 10 return { split( "\0", $x ) }; 11 }