Can't use string ("MODULE") as a HASH ref while "strict refs" in use

M M <[email protected]> Tue, 10 Aug 2004 13:39:46 -0400
Newsgroups gmane.comp.lang.perl.modules.mail-box
Message-ID <[email protected]>
Hi there ! 


I did post this to perlmonks and someone suggested I try this
mail-list.  I am trying to write a simple program to add some messages
to an MBOX. Here is my code:
------------------
use strict; use English; use warnings;

use Mail::Box::Mbox;

my $foldername = 'test.mbox';
my $folder = Mail::Box::Mbox->create($foldername, access => 'rw');

my $msg;
my $n =4;

while ($n--) {
    
my $msg = Mail::Box::Message->build(From => 'me', data => "Message
$n\n only two\nlines\n---\n");

        $msg->print;
$folder->addMessage( $msg );
}    

Here is the error I get:

Can't use string ("Mail::Box::Mbox") as a HASH ref while "strict refs"
+ in use at I:/Perl/site/lib/Mail/Box.pm line 816.
---------------------
Thanks !

P.S. I have attached the perl source in case the formatting is screwed up.

Thanks !
mmbox.pl (application/octet-stream, 595 B)
use strict;
use English;
use warnings;

use Mail::Box::Mbox;

my $foldername = 'test.mbox';
#my $folderdir = 'I:/Nexport';
#my $folder = Mail::Box::Mbox->new( folder => $foldername, access => 'rw' );
 
my $folder = Mail::Box::Mbox->create($foldername);

my $msg;
my $n =4;

while ($n--) {
	
	$msg = Mail::Box::Message->build(
			From => 'me', data => "Message $n \n only two\nlines\n---\n");
	$msg->print;

	$folder->addMessage( $msg );
}	
   

# Can't use string ("Mail::Box::Mbox") as a HASH ref while "strict refs" in use at I:/Perl/site/lib/Mail/Box.pm line 816.