S
Shmuel (Seymour J.) Metz
I'm trying to use the MIME packages from CPAN, and my code includes:
use MIME:
arser;
use MIME::QuotedPrint;
use MIME::Tools;
Everything seems to work except that I get the error message
readline() on unopened filehandle DATA at
G:/PERLLIB/LIB/site_perl/5.8.2/MIME/WordDecoder.pm line 579.
My main and WordDecoder.pm include the token __END__; changing the
token in main to __DATA__ doesn't change anything. The relevant code
in WordDecoder.pm is
{
package main; no strict; local $^W = 0;
my @x = <:ATA>;
eval join('',<:ATA>) || die $@ unless caller();
}
Any suggestions? Thanks.
--
Shmuel (Seymour J.) Metz, SysProg and JOAT <http://patriot.net/~shmuel>
Unsolicited bulk E-mail subject to legal action. I reserve the
right to publicly post or ridicule any abusive E-mail. Reply to
domain Patriot dot net user shmuel+news to contact me. Do not
reply to (e-mail address removed)
use MIME:
arser;use MIME::QuotedPrint;
use MIME::Tools;
Everything seems to work except that I get the error message
readline() on unopened filehandle DATA at
G:/PERLLIB/LIB/site_perl/5.8.2/MIME/WordDecoder.pm line 579.
My main and WordDecoder.pm include the token __END__; changing the
token in main to __DATA__ doesn't change anything. The relevant code
in WordDecoder.pm is
{
package main; no strict; local $^W = 0;
my @x = <:
ATA>;eval join('',<:
ATA>) || die $@ unless caller();}
Any suggestions? Thanks.
--
Shmuel (Seymour J.) Metz, SysProg and JOAT <http://patriot.net/~shmuel>
Unsolicited bulk E-mail subject to legal action. I reserve the
right to publicly post or ridicule any abusive E-mail. Reply to
domain Patriot dot net user shmuel+news to contact me. Do not
reply to (e-mail address removed)