Description of problem:
Function calculate_mac probably (I'm not completely sure, please feel free to close this bug if it behaves as expected) returns incorrect MAC address on system with more network interfaces. File with that function is:

/usr/share/perl5/vendor_perl/NOCpulse/SMONQueue.pm


Version-Release number of selected component (if applicable):
Satellite 5.7.0
MessageQueue-3.26.10-1.el6sat.noarch


How reproducible:
always


Steps to Reproduce:
1. Have system with multiple network interfaces, with only first of them active:
2. Add this debug output to the function:

sub calculate_mac
{
    my $self = shift;

    my $mac = `/sbin/ip -o link`;
    $mac =~ s/.*\bUP\b.*ether (\S*).*/$1/s;
    my @nodes = split(/:/, $mac);
    $mac = sprintf("%02X:%02X:%02X:%02X:%02X:%02X",
                   hex($nodes[0]), hex($nodes[1]), hex($nodes[2]),
                   hex($nodes[3]), hex($nodes[4]), hex($nodes[5]));

    print ">>>>>>>>>> calculate_mac: $mac <<<<<<<<<<";
    $self->mac($mac);
}


Actual results:
It was returning 2C:44:FD:84:51:C7 for me.


Expected results:
IMO it should return 2C:44:FD:84:51:C4


Additional info:
Found this when I have seen bug 1170064 again.