From bdfd05dca42a7850dc1dca7f0d1cb23a208a0f99 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sun, 18 May 2014 17:47:14 -0700
Subject: [PATCH] fix perl warning

---
 fail2ban/edit_jail.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fail2ban/edit_jail.cgi b/fail2ban/edit_jail.cgi
index 29f39065e..538a4e4e2 100755
--- a/fail2ban/edit_jail.cgi
+++ b/fail2ban/edit_jail.cgi
@@ -60,7 +60,7 @@ my $i = 0;
 foreach my $a (@{$actionlist->{'words'}}, undef) {
 	my $action;
 	my %opts;
-	if ($a =~ /^(\S+)\[(.*)\]$/) {
+	if ($a && $a =~ /^(\S+)\[(.*)\]$/) {
 		$action = $1;
 		%opts = map { split(/=/, $_) } split(/,\s*/, $2);
 		}