Bug#366209: libnet-imap-perl: Expunge responses not working

[Torsten Hilbrich]

Package: libnet-imap-perl
Version: 0.02-5
Severity: normal

I'm currently writing an application for automatic spam and ham
learning and got a "Use of uninitialized value" when calling the
msgnum method of a Net::IMAP::Response object.

I fixed the problem by changing the msgnum method of this class, here is
the patch I used:

--- IMAP.pm.orig        2006-05-06 09:00:53.334892539 +0200
+++ IMAP.pm     2006-05-06 09:01:07.698002451 +0200
@@ -1850,7 +1850,7 @@
   return $self;
 }

-sub msgnum { $_->{Msgnum} }
+sub msgnum { $_[0]->{Msgnum} }


        Torsten


-- System Information:
Debian Release: testing/unstable
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.16-1-k7
Locale: LANG=de_DE.UTF-8, LC_CTYPE=de_DE.UTF-8 (charmap=UTF-8)

Versions of packages libnet-imap-perl depends on:
ii  libdigest-hmac-perl           1.01-3     create standard message integrity 
ii  perl [libmime-base64-perl]    5.8.8-4    Larry Wall's Practical Extraction 

libnet-imap-perl recommends no packages.

-- no debconf information