summaryrefslogtreecommitdiffstats
path: root/perl-install/network/ethernet.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-07-07 06:45:58 +0000
committerOlivier Blin <oblin@mandriva.org>2005-07-07 06:45:58 +0000
commitc5abf3c8716b1e731cb08a341281bff55339b99f (patch)
tree32b2d7eefb31bd8c45b9aea9753b25601b503370 /perl-install/network/ethernet.pm
parent335ab7c81f72119d8a6bb8445557f8c36596efa4 (diff)
downloaddrakx-c5abf3c8716b1e731cb08a341281bff55339b99f.tar
drakx-c5abf3c8716b1e731cb08a341281bff55339b99f.tar.gz
drakx-c5abf3c8716b1e731cb08a341281bff55339b99f.tar.bz2
drakx-c5abf3c8716b1e731cb08a341281bff55339b99f.tar.xz
drakx-c5abf3c8716b1e731cb08a341281bff55339b99f.zip
stricter regexp for MAC addresses
Diffstat (limited to 'perl-install/network/ethernet.pm')
-rw-r--r--perl-install/network/ethernet.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 29e2b5d10..5fb8e0a1d 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -107,7 +107,7 @@ sub get_eth_cards_names {
#- returns (link_type, mac_address)
sub get_eth_card_mac_address {
my ($intf) = @_;
- `LC_ALL= LANG= $::prefix/sbin/ip -o link show $intf 2>/dev/null` =~ m|.*link/(\S+)\s([0-9a-z:]+)\s|;
+ `LC_ALL= LANG= $::prefix/sbin/ip -o link show $intf 2>/dev/null` =~ m|.*link/(\S+)\s((?:[0-9a-f]{2}:){5}[0-9a-f]{2})\s|;
}
#- write interfaces MAC address in iftab