From eca75e30945a6e1bd3369f33f11e200abd21b5d8 Mon Sep 17 00:00:00 2001 From: Tom Eastep <teastep@shorewall.net> Date: Sat, 16 Jan 2010 12:35:18 -0800 Subject: [PATCH] Don't pass an undefined value to fatal_error when numeric conversion fails. Signed-off-by: Tom Eastep <teastep@shorewall.net> --- Shorewall/Perl/Shorewall/IPAddrs.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Shorewall/Perl/Shorewall/IPAddrs.pm b/Shorewall/Perl/Shorewall/IPAddrs.pm index a0e8c7ad9..a2b68e232 100644 --- a/Shorewall/Perl/Shorewall/IPAddrs.pm +++ b/Shorewall/Perl/Shorewall/IPAddrs.pm @@ -309,7 +309,7 @@ sub validate_port( $$ ) { $value = getservbyname( $port, $proto ); } - fatal_error "Invalid/Unknown $proto port/service ($port)" unless defined $value; + fatal_error "Invalid/Unknown $proto port/service ($_[1])" unless defined $value; $value; }