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;
}