summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/network/ifw.pm5
1 files changed, 5 insertions, 0 deletions
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));