Bug#442912: libmail-box-perl: autodetection of MH folders not working correctly

[Celejar]

Package: libmail-box-perl
Version: 2.073-1
Severity: normal

Many of my (Sylpheed created and maintained) MH folders are incorrectly
autodetected as mboxes, resulting in subsequent chaos.  The attached
simple recursive directory traversal code works fine when "type => 'mh'"
is specified, but without it many of my MH folders are identified as
mboxes, and the script doesn't work correctly.

-- System Information:
Debian Release: lenny/sid
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: i386 (i686)

Kernel: Linux 2.6.22-lizzie
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages libmail-box-perl depends on:
ii  libdigest-hmac-perl        1.01-6        create standard message integrity 
ii  libfile-remove-perl        0.37-1        remove files and directories, acce
ii  libio-stringy-perl         2.110-2       Perl5 modules for IO from scalars 
ii  libmailtools-perl          1.77-1        Manipulate email in perl programs
ii  libmime-types-perl         1.21-1        Perl extension for determining MIM
ii  libobject-realize-later-pe 0.18-1        Delayed creation of objects
ii  libtimedate-perl           1.1600-9      Time and date functions for Perl
ii  liburi-perl                1.35.dfsg.1-1 Manipulates and accesses URI strin
ii  libuser-identity-perl      0.92-1        manages different identities/roles
ii  perl                       5.8.8-7       Larry Wall's Practical Extraction 
ii  perl-base [libscalar-list- 5.8.8-7       The Pathologically Eclectic Rubbis

libmail-box-perl recommends no packages.

-- no debconf information

*** perl/mbtest.pl
#! /usr/bin/perl -w

# usage: 'mbtest.pl mail-root'

use Mail::Box::Manager;

sub scan;

my $mgr = new Mail::Box::Manager;
my $folder = $mgr->open(shift);
scan($folder);

sub scan {
	my $folder = shift @_;
	print "Entering $folder; type is ", $folder->type, "\n";
	foreach ($folder->listSubFolders) {
		print "Descending into $_\n";
#		scan($folder->openSubFolder($_, type => 'mh'));
		scan($folder->openSubFolder($_));
	}
print "Leaving $folder\n";	
}