From 26d08b92c0400b6b03d9c40678834c18688071d0 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Mon, 30 May 2011 11:38:49 -0700 Subject: [PATCH] Correct use of null value as a hash Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Zones.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Shorewall/Perl/Shorewall/Zones.pm b/Shorewall/Perl/Shorewall/Zones.pm index c47539ce7..326026bc6 100644 --- a/Shorewall/Perl/Shorewall/Zones.pm +++ b/Shorewall/Perl/Shorewall/Zones.pm @@ -1733,7 +1733,7 @@ sub process_host( ) { fatal_error "Invalid ipset name ($hosts)" unless $hosts =~ /^\+[a-zA-Z][-\w]*$/; } - fatal_error "Unknown interface ($interface)" unless ($interfaceref = $interfaces{$interface})->{root}; + fatal_error "Unknown interface ($interface)" unless ($interfaceref = $interfaces{$interface}) && $interfaceref->{root}; } else { fatal_error "Invalid HOST(S) column contents: $hosts"; }