Re: Method fileLocation() redux.

On Mon, 5 Apr 2004, Mark Overmeer wrote:

> Replace method fileLocation in Mail/Message/Body/Nested by

After 'fixing(?)' first problem I how have the following errors.

syntax error at /usr/lib/perl5/site_perl/5.8.0/Mail/Message/Body/Nested.pm 
line 131, near "->fileLocation)"
Compilation failed in require at 
/usr/lib/perl5/site_perl/5.8.0/Mail/Message.pm line 15.
BEGIN failed--compilation aborted at 
/usr/lib/perl5/site_perl/5.8.0/Mail/Message.pm line 15.
Compilation failed in require at (eval 3) line 3.
        ...propagated at /usr/lib/perl5/5.8.0/base.pm line 64.
BEGIN failed--compilation aborted at 
/usr/lib/perl5/site_perl/5.8.0/Mail/Box/Message.pm line 8.
Compilation failed in require at 
/usr/lib/perl5/site_perl/5.8.0/Mail/Box.pm line 10.
BEGIN failed--compilation aborted at 
/usr/lib/perl5/site_perl/5.8.0/Mail/Box.pm line 10.
Compilation failed in require at 
/usr/lib/perl5/site_perl/5.8.0/Mail/Box/Manager.pm line 9.
BEGIN failed--compilation aborted at 
/usr/lib/perl5/site_perl/5.8.0/Mail/Box/Manager.pm line 9.
Compilation failed in require at /root/bin/chkspam.plx line 8.
BEGIN failed--compilation aborted at /root/bin/chkspam.plx line 8.

Line 8 is:

use Mail::Box::Manager;

I thought the above reference was a funky line break so changed the two 
line to one and it indicates the the problem is with this

	$nested->body->fileLocation)[1]

> sub fileLocation()
> {   my $nested   = shift->nested;
>                                                                                 
>     ( $nested->head->fileLocation)[0]
>     , $nested->body->fileLocation)[1]
>     );
> }


Rod
-- 
    "Open Source Software - You usually get more than you pay for..."
     "Build A Brighter Lamp :: Linux Apache {middleware} PostgreSQL"