diff options
author | Guilhem Moulin <guilhem@fripost.org> | 2015-07-30 00:39:33 +0200 |
---|---|---|
committer | Guilhem Moulin <guilhem@fripost.org> | 2015-07-30 00:43:44 +0200 |
commit | 483073796c9e3b14deed5b24afdb029ca0e9a48c (patch) | |
tree | 0496e2ee27a323ff3bb2e663426451d307043574 | |
parent | 076792d13dbc93d374a0bbbb63901c5610278e7d (diff) |
typo
-rwxr-xr-x | imapsync | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -409,12 +409,12 @@ my @MAILBOXES; my $sth_subscribe = $DBH->prepare(q{UPDATE mailboxes SET subscribed = ? WHERE idx = ?}); foreach my $mailbox (keys %mailboxes) { - next if defined $CONF->{_}->{'ignore-mailbox'} and $mailbox !~ /$CONF->{_}->{'ignore-mailbox'}/o; + next if defined $CONF->{_}->{'ignore-mailbox'} and $mailbox =~ /$CONF->{_}->{'ignore-mailbox'}/o; my ($lExists, $rExists) = map {mbx_exists($_,$mailbox)} qw/local remote/; next unless $lExists or $rExists; check_delim($mailbox); # ensure that the delimiter match - push $mailbox, @MAILBOXES; + push @MAILBOXES, $mailbox; $STH_GET_INDEX->execute($mailbox); my ($idx,$subscribed) = $STH_GET_INDEX->fetchrow_array(); |