diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Net/IMAP/Sync.pm | 5 | 
1 files changed, 2 insertions, 3 deletions
| diff --git a/lib/Net/IMAP/Sync.pm b/lib/Net/IMAP/Sync.pm index c1bccbf..677f991 100644 --- a/lib/Net/IMAP/Sync.pm +++ b/lib/Net/IMAP/Sync.pm @@ -386,9 +386,8 @@ sub new($%) {  # Log out when the Net::IMAP::Sync object is destroyed.  sub DESTROY($) {      my $self = shift; -    if (defined $self->{STDIN}  and $self->{STDIN}->opened() and -        defined $self->{STDOUT} and $self->{STDOUT}->opened()) { -        $self->logout(); +    foreach (qw/STDIN STDOUT/) { +        $self->{$_}->close()  if defined $self->{$_}  and $self->{$_}->opened();      }  } | 
