Bug#547713: libmail-imapclient-perl: expunge() does not work without parameter

[Arnaud Giersch]

Package: libmail-imapclient-perl
Version: 3.20-2
Severity: normal

Hi,

The expunge() method in Mail::IMAPClient, does not work when used
without argument.  I noticed it by playing with imapsync.

Acoording to the documentation :

       The expunge method accepts one optional argument, a folder name.  It
       expunges the folder specified as the argument, or the currently
       selected folder if no argument is supplied.

If I understand correctly, in this method, the line :

    if ( defined $folder && $folder eq $old ) {

should be changed in :

    if ( !defined $folder || $folder eq $old ) {


Regards,

        Arnaud

-- System Information:
Debian Release: 5.0.3
  APT prefers stable
  APT policy: (500, 'stable'), (400, 'testing'), (50, 'unstable'), (40, 'experimental')
Architecture: i386 (i686)

Kernel: Linux 2.6.26-2-686 (SMP w/2 CPU cores)
Locale: LANG=fr_FR at euro, LC_CTYPE=fr_FR at euro (charmap=ISO-8859-15)
Shell: /bin/sh linked to /bin/bash

Versions of packages libmail-imapclient-perl depends on:
ii  libparse-recdescent-perl 1.95.1+dfsg-3   generates recursive-descent parser
ii  perl                     5.10.0-19lenny2 Larry Wall's Practical Extraction 

Versions of packages libmail-imapclient-perl recommends:
ii  libdigest-hmac-perl        1.01-7        create standard message integrity 
ii  libio-socket-ssl-perl      1.16-1+lenny1 Perl module implementing object or

Versions of packages libmail-imapclient-perl suggests:
ii  libauthen-sasl-perl           2.12-1     Authen::SASL - SASL Authentication

-- no debconf information

-- 
http://info.iut-bm.univ-fcomte.fr/staff/giersch/