e-smith-lib/sme9/e-smith-lib-2.4.0-fix_bonding.patch

diff -Nur e-smith-lib-2.4.0/root/usr/share/perl5/vendor_perl/esmith/ethernet.pm e-smith-lib-2.4.0-fix_bonding/root/usr/share/perl5/vendor_perl/esmith/ethernet.pm
--- e-smith-lib-2.4.0/root/usr/share/perl5/vendor_perl/esmith/ethernet.pm       2013-02-23 18:47:46.441079217 +0100
+++ e-smith-lib-2.4.0-fix_bonding/root/usr/share/perl5/vendor_perl/esmith/ethernet.pm   2013-02-23 18:48:57.386558526 +0100
@@ -66,8 +66,21 @@
         # Now we should be left only wth ethernet adapters
         open HW, "/sys/class/net/$nic/address";
         my $mac = join("", <HW>);
-        chomp($mac);
         close HW;
+        # If the device is a slave of a bridge, it's real MAC
+        # address can be found in /proc/net/bonding/bondX
+        if (-l "/sys/class/net/$nic/master"){
+            my $bond = basename (readlink "/sys/class/net/$nic/master");
+            local $/ = '';
+            open SLAVES, "/proc/net/bonding/$bond";
+            my @slaves = <SLAVES>;
+            close SLAVES;
+            my @slaveInfo = grep { /^Slave\ Interface:\ $nic/m } @slaves;
+            foreach (split /\n+/, (join "", @slaveInfo)){
+                $mac = $1 if (/^Permanent\ HW\ addr:\ (.*)$/);
+            }
+        }
+        chomp($mac);
         my $driver = basename (readlink "/sys/class/net/$nic/device/driver");
         my $bus = basename (readlink "/sys/class/net/$nic/device/subsystem");
         my $desc = $nic;
1	vip-ire	1.1	diff -Nur e-smith-lib-2.4.0/root/usr/share/perl5/vendor_perl/esmith/ethernet.pm e-smith-lib-2.4.0-fix_bonding/root/usr/share/perl5/vendor_perl/esmith/ethernet.pm
2			--- e-smith-lib-2.4.0/root/usr/share/perl5/vendor_perl/esmith/ethernet.pm 2013-02-23 18:47:46.441079217 +0100
3			+++ e-smith-lib-2.4.0-fix_bonding/root/usr/share/perl5/vendor_perl/esmith/ethernet.pm 2013-02-23 18:48:57.386558526 +0100
4			@@ -66,8 +66,21 @@
5			# Now we should be left only wth ethernet adapters
6			open HW, "/sys/class/net/$nic/address";
7			my $mac = join("", <HW>);
8			- chomp($mac);
9			close HW;
10			+ # If the device is a slave of a bridge, it's real MAC
11			+ # address can be found in /proc/net/bonding/bondX
12			+ if (-l "/sys/class/net/$nic/master"){
13			+ my $bond = basename (readlink "/sys/class/net/$nic/master");
14			+ local $/ = '';
15			+ open SLAVES, "/proc/net/bonding/$bond";
16			+ my @slaves = <SLAVES>;
17			+ close SLAVES;
18			+ my @slaveInfo = grep { /^Slave\ Interface:\ $nic/m } @slaves;
19			+ foreach (split /\n+/, (join "", @slaveInfo)){
20			+ $mac = $1 if (/^Permanent\ HW\ addr:\ (.*)$/);
21			+ }
22			+ }
23			+ chomp($mac);
24			my $driver = basename (readlink "/sys/class/net/$nic/device/driver");
25			my $bus = basename (readlink "/sys/class/net/$nic/device/subsystem");
26			my $desc = $nic;