From e08093a42beca3e38859cfeea926207cdf9f478f Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 18 Aug 2005 18:12:08 +0000
Subject: add get_protocol

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

diff --git a/perl-install/network/ifw.pm b/perl-install/network/ifw.pm
index 99ca87944..5be73cc59 100644
--- a/perl-install/network/ifw.pm
+++ b/perl-install/network/ifw.pm
@@ -83,6 +83,11 @@ sub get_service {
     getservbyport($port, undef) || $port;
 }
 
+sub get_protocol {
+    my ($protocol) = @_;
+    getprotobynumber($protocol) || $protocol;
+}
+
 sub get_ip_address {
     my ($addr) = @_;
     inet_ntoa(pack('L', $addr));
-- 
cgit v1.2.1