nixpkgs/pkgs/development/perl-modules/Device-OUI-1.04-hash.patch
Stig Palmquist bd4b014963
perlPackages.DeviceMAC: init at 1.00
dependencies:
- perlPackages.DeviceOUI: init at 1.04

Patch to prevent random test failures in Device::OUI is included:

  https://rt.cpan.org/Public/Bug/Display.html?id=109209
  https://rt.cpan.org/Ticket/Attachment/1657288/889472/Device-OUI-1.04-hash.patch
2019-10-04 16:00:57 +02:00

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 ) };
}