minor parse_bans fixes

git-svn-id: http://svn.tabris.net/repos/srsv@3592 70d4eda1-72e9-0310-a436-91e5bd24443c

diff --git a/branches/0.4.3/modules/serviceslibs/chanserv.pm b/branches/0.4.3/modules/serviceslibs/chanserv.pm
index 6f734fb743010b9214c0356e28c8151e2f5d9fd7..4a4a27b069c9f101e95013e8b944460f3dee1567 100644 (file)
--- a/branches/0.4.3/modules/serviceslibs/chanserv.pm
+++ b/branches/0.4.3/modules/serviceslibs/chanserv.pm
@@ -2390,11 +2390,11 @@ sub parse_bans($$$$;$$) {
        foreach my $target (@targets) {
                my $tuser;
 
-               if ($target =~ /\+/ && $temp) {
+               if ($target =~ /^\+/ && $temp) {
                        $expiry = $target;
                        next;
                }
-               if(ref($target)) {
+               elsif(ref($target)) {
                        $tuser = $target;
                }
                elsif($target =~ /\,/) {
@@ -2407,7 +2407,7 @@ sub parse_bans($$$$;$$) {
                        next;
                }
                elsif($target =~ /^-/) {
-                       $target =~ s/^\-//;
+                       $target =~ s/^-//;
                        push @unbans, $target;
                        next;
                }