From 7a08dbc23f114bf6b6eae275e21e63b6667a1b37 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 25 Nov 1999 02:21:17 +0000
Subject: no_comment

---
 perl-install/network.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/network.pm')

diff --git a/perl-install/network.pm b/perl-install/network.pm
index 9ddde836f..e471734bc 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -146,6 +146,11 @@ sub sethostname {
     syscall_('sethostname', $netc->{HOSTNAME}, length $netc->{HOSTNAME}) or log::l("sethostname failed: $!");
 }
 
+sub resolv($) {
+    my ($name) = @_;
+    is_ip($name) ? $name : join(".", unpack "C4", (gethostbyname $name)[4]);
+}
+
 sub dnsServers {
     my ($netc) = @_;
     grep { $_ } map { $netc->{$_} } qw(dnsServer dnsServer2 dnsServer3);
-- 
cgit v1.2.1