parts() issue?

Using 2.058 when calling $msg->body->parts():


Method parts() is not defined for a
Mail::Reporter.\n\tMail::Reporter::AUTOLOAD('Mail::Reporter') called at
/usr/local/share/perl/5.8.4/Mail/Message/Body.pm line
449\n\tMail::Message::Body::AUTOLOAD('Mail::Message::Bo...') called at (eval 217) line
34\n\tMail::Message::Body::Delayed::AUTOLOAD('Mail::Message::Bo...') called at
/usr/lib/cgi-bin/webmail.pl
line
536\n\tModPerl::ROOT::ModPerl::Registry::usr_lib_cgi_2dbin_webmail_2epl::folder_housekeeping('HASH(0x848b9d8)
') called at /usr/lib/cgi-bin/webmail.pl line
189\n\tModPerl::ROOT::ModPerl::Registry::usr_lib_cgi_2dbin_webmail_2epl::handler('Apache::RequestRe...')
called at /usr/local/lib/perl/5.8.4/ModPerl/RegistryCooker.pm line 202\n\teval {...} called at
/usr/local/lib/perl/5.8.4/ModPerl/RegistryCooker.pm line
202\n\tModPerl::RegistryCooker::run('ModPerl::Registry...') called at
/usr/local/lib/perl/5.8.4/ModPerl/RegistryCooker.pm line
168\n\tModPerl::RegistryCooker::default_handler('ModPerl::Registry...') called at
/usr/local/lib/perl/5.8.4/ModPerl/Registry.pm line
30\n\tModPerl::Registry::handler('ModPerl::Registry',
'Apache::RequestRe...') called at -e line 0\n\teval {...} called at -e line 0\n

--
Jason Woodward
[email protected]

-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org
 
mQGiBDrwHPoRBAC3nDJRLKTcFcJWid9PN08ChMI7tuQevomWoVeZpZZ0zzip2w/E
ts55Mx58eRRGFFmgZZGeP7EhyUPzb668LIsU62gFO7G5/oWCr3U3g3peabZsqRC9
FchdiM8DJqQu/7ryAjbQ4OFCSW+jAsMC3tKXrdaB48WiipiXUcKR/sONGwCgzGPf
yxDgOc7n9xWVH0qbUDC/vZsEAKvbckkhpe9/x2A4E15l6DUbliEmboeHiT9NJaok
vLo3ElSO1o6ld5+VhFIkhRmmovrS8oyttZNv8HjMEYf6L3NdZybTHfcdS5EIpguH
Xx2/IGzJKbgX3vM/qhJ0+F1LPuN20mOT0NO/29AXJn3V7rTKoKf/uOOKD+Eqh4r1
QVMoBAC3ZPF3idmuW3j4tqhOaWe2qHlLwEClwdsTG+KOsVYh1sU4RvyMErDIU6r/
MomkLAJfbtBTXKcknW68Y4Uv4B+UkyopklktRBFiMBffoHLUfkkQk/L9Yg1YG27N
COsECiamylF8hNSTcNIQqYXDpyoRcSi2p7gqkxJZrk7GwrX2ObQjSmFzb24gV29v
ZHdhcmQgPHdvb2R3YXJkakBqYW9zLm9yZz6IVwQTEQIAFwUCOvAc+gULBwoDBAMV
AwIDFgIBAheAAAoJEGu22odUp/oeN2IAoKHS+qH8AenlOTKL0Ifl3q1QSlDBAKDL
bvvgl7HoRTHY2b9n3pEPr+KIh7kBDQQ68Bz9EAQA2Ds/2VKc08qaNIkA1okxITmQ
aaNjUrm/au9jNzm9lyEFXWXBNegzP5Y4A1ESDKUt5RETgVhNKd9mGkP7tgPTs3f6
Z595K6W7xeZWONKbl578RbWwE1CiMqEOuXwr1/q0DzfwmNQLcqDcX3o0DEpWE+uZ
G+5CtpkXYiDmccigDKMAAwUD/iZDxEr1HC4iLnGXUCDpxXEtp7Fx150baFzZITns
4hpKRAbTR65s2tL8rh5d8ThDgqW5C9JQja9fMxI2u7zlyM2ALFXJP1xwgZTSOYvn
sq+x41i5tJpce+pDmMEl8X0wew2Z5ZRPfDLv64kKPIGNgVXsAHirH2KjChZat4VC
qkZciEYEGBECAAYFAjrwHP0ACgkQa7bah1Sn+h7qkQCePz0ds5O/dsZrm450pjLs
2V3BkMAAn2/6alBBC9b9F94svdOf0mGY/G5w
=4p8c
-----END PGP PUBLIC KEY BLOCK-----

my($c,@s)=(0,qw( | / - \ ));$|++;my$p;&{sub{map{$p.=chr$_}
unpack(join('a',('',split(//,$_->[1]))),$_->[0]);}}foreach
[qw/74117115116 2333/],[qw/65110111116104101114 2333333/],
[qw/80101114108 2333/],[qw/729799107101114 222333/];{my$z=
$c<4?$s[$c++]:$s [$c=0];printf"\ec%s%s%s",$z,$p,$z,select*
STDOUT,*STDOUT,*STDOUT,0.1,;redo;}##########JAPH##########