Skip Menu |

This queue is for tickets about the Device-OUI CPAN distribution.

Report information
The Basics
Id: 109209
Status: open
Priority: 0/
Queue: Device-OUI

People
Owner: Nobody in particular
Requestors: SREZIC [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 1.04
Fixed in: (no value)



Subject: Random test failures with perl 5.17.6 and later (hash randomization?)
See http://matrix.cpantesters.org/?dist=Device-OUI%201.04 for a test reports overview. The pattern (random fail reports starting with perl 5.17.6) looks like here's a hash randomization problem.
Here is a potential patch
Subject: Device-OUI-1.04-hash.patch
--- 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 ) }; }