pkgs/development/perl-modules/Device-OUI-1.04-hash.patch

   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      }