diff options
| author | Guilhem Moulin <guilhem@fripost.org> | 2015-07-24 01:27:43 +0200 |
|---|---|---|
| committer | Guilhem Moulin <guilhem@fripost.org> | 2015-07-24 01:27:53 +0200 |
| commit | a8445f6da256a09bac321a0bd2c23e3b8424caf4 (patch) | |
| tree | 04c80cfd870b2a1672b2882d02bf5b062cfece82 /lib/Net/IMAP | |
| parent | df8316d4d198d518db6b03600273efd5f9948c4a (diff) | |
Don't prefix logs by a timestamp, that's a syslog thing.
Diffstat (limited to 'lib/Net/IMAP')
| -rw-r--r-- | lib/Net/IMAP/Sync.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lib/Net/IMAP/Sync.pm b/lib/Net/IMAP/Sync.pm index 11bfba4..bb99dcb 100644 --- a/lib/Net/IMAP/Sync.pm +++ b/lib/Net/IMAP/Sync.pm @@ -23,7 +23,6 @@ use strict; use Config::Tiny (); use List::Util 'first'; use Socket 'SO_KEEPALIVE'; -use POSIX 'strftime'; use Exporter 'import'; BEGIN { @@ -401,8 +400,7 @@ sub DESTROY($) { sub log($@) { my $self = shift; return unless @_; - my $prefix = strftime "%b %e %H:%M:%S", localtime; - $prefix .= " $self->{name}" if defined $self->{name}; + my $prefix = defined $self->{name} ? $self->{name} : ''; $prefix .= "($self->{_SELECTED})" if $self->{_STATE} eq 'SELECTED'; $prefix .= ': '; $self->{STDERR}->say($prefix, @_); |