perl-NetPacket-ethernet.patch

   1 diff -ruN NetPacket-1.6.0.orig/lib/NetPacket/Ethernet.pm NetPacket-1.6.0/lib/NetPacket/Ethernet.pm
   2 --- NetPacket-1.6.0.orig/lib/NetPacket/Ethernet.pm      2015-03-13 23:20:07.000000000 +0100
   3 +++ NetPacket-1.6.0/lib/NetPacket/Ethernet.pm   2018-10-07 15:31:17.126294738 +0200
   4 @@ -127,8 +127,8 @@
   5  sub encode {
   6      my ($self) = shift;
   7
   8 -    (my $dest = $self->{src_mac}) =~ s/://g;
   9 -    (my $src = $self->{dest_mac}) =~ s/://g;
  10 +    (my $src = $self->{src_mac}) =~ s/://g;
  11 +    (my $dest = $self->{dest_mac}) =~ s/://g;
  12
  13      my $frame = pack('H12H12n a*', $dest, $src, 0x0800, $self->{data});
  14      return $frame;