diff options
Diffstat (limited to 'imapsync')
-rwxr-xr-x | imapsync | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -28,7 +28,6 @@ use Getopt::Long qw/:config posix_default no_ignore_case gnu_compat use List::Util 'first'; use DBI (); -use POSIX 'strftime'; use lib 'lib'; use Net::IMAP::Sync qw/read_config compact_set $IMAP_text $IMAP_cond/; @@ -169,9 +168,7 @@ $DBH->do('PRAGMA foreign_keys = ON'); sub msg($@) { my $name = shift; return unless @_; - my $prefix = strftime "%b %e %H:%M:%S", localtime; - $prefix .= " $name" if defined $name; - $prefix .= ': '; + my $prefix = defined $name ? "$name: " : ''; print STDERR $prefix, @_, "\n"; } |