X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;h=a422b014a926d31eb2779cbd9a587a4ff695a686;hb=4d03e2c0f1feb9aa6011d6d72b0dd6e95b71da13;hp=867c8ddfe73533fea29a6e3b09f5f0dcd106e2d5;hpb=520b5d73641f384e1ba59e4cb6b5ab84b54baf5a;p=spider.git

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 867c8ddf..a422b014 100644
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -372,7 +372,7 @@ sub parse
 	my $filter;
 	my ($flag, $call);
 	my $s;
-	my $user;
+	my $user = '';
 	
 	# check the line for non legal characters
 	dbg("Filter::parse line: '$line'") if isdbg('filter');
@@ -550,11 +550,13 @@ sub parse
 		}
 	}
 
-	# tidy up the user string
-	$user =~ s/\&\&/ and /g;
-	$user =~ s/\|\|/ or /g;
-	$user =~ s/\!/ not /g;
-	$user =~ s/\s+/ /g;
+	# tidy up the user string (why I have to stick in an if statement when I have initialised it I have no idea! 5.28 bug?
+	if ($user) {
+		$user =~ s/\&\&/ and /g;
+		$user =~ s/\|\|/ or /g;
+		$user =~ s/\!/ not /g;
+		$user =~ s/\s+/ /g;
+	}
 	
 	return (0, $filter, $fno, $user, $s);
 }