From df8316d4d198d518db6b03600273efd5f9948c4a Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Fri, 24 Jul 2015 01:21:49 +0200 Subject: wibble --- imapsync | 6 +++--- lib/Net/IMAP/Sync.pm | 3 +-- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/imapsync b/imapsync index a8c786c..a759250 100755 --- a/imapsync +++ b/imapsync @@ -530,13 +530,13 @@ my $STH_GET_CACHE_BY_IDX = $DBH->prepare(q{ my $STH_GET_INDEX = $DBH->prepare(q{SELECT idx FROM mailboxes WHERE mailbox = ?}); # Find local/remote UID from the map. -my $STH_GET_LOCAL_UID = $DBH->prepare("SELECT lUID FROM mapping WHERE idx = ? and rUID = ?"); -my $STH_GET_REMOTE_UID = $DBH->prepare("SELECT rUID FROM mapping WHERE idx = ? and lUID = ?"); +my $STH_GET_LOCAL_UID = $DBH->prepare(q{SELECT lUID FROM mapping WHERE idx = ? and rUID = ?}); +my $STH_GET_REMOTE_UID = $DBH->prepare(q{SELECT rUID FROM mapping WHERE idx = ? and lUID = ?}); # Delete a (idx,lUID,rUID) association. # /!\ Don't commit before the messages have actually been EXPUNGEd on # both sides! -my $STH_DELETE_MAPPING = $DBH->prepare("DELETE FROM mapping WHERE idx = ? and lUID = ?"); +my $STH_DELETE_MAPPING = $DBH->prepare(q{DELETE FROM mapping WHERE idx = ? and lUID = ?}); # Update the HIGHESTMODSEQ. my $STH_UPDATE_LOCAL_HIGHESTMODSEQ = $DBH->prepare(q{UPDATE local SET HIGHESTMODSEQ = ? WHERE idx = ?}); diff --git a/lib/Net/IMAP/Sync.pm b/lib/Net/IMAP/Sync.pm index 21e2fa8..11bfba4 100644 --- a/lib/Net/IMAP/Sync.pm +++ b/lib/Net/IMAP/Sync.pm @@ -405,8 +405,7 @@ sub log($@) { $prefix .= " $self->{name}" if defined $self->{name}; $prefix .= "($self->{_SELECTED})" if $self->{_STATE} eq 'SELECTED'; $prefix .= ': '; - my $stderr = $self->{STDERR}; - print $stderr $prefix, @_, "\n"; + $self->{STDERR}->say($prefix, @_); } -- cgit v1.2.3