From owner-freebsd-perl@FreeBSD.ORG  Wed Dec 15 23:21:31 2004
Return-Path: <owner-freebsd-perl@FreeBSD.ORG>
Delivered-To: freebsd-perl@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 17E2416A4CE
	for <freebsd-perl@freebsd.org>; Wed, 15 Dec 2004 23:21:31 +0000 (GMT)
Received: from enzo.xbsd.net (enzo.xbsd.net [217.157.24.29])
	by mx1.FreeBSD.org (Postfix) with ESMTP id A496243D55
	for <freebsd-perl@freebsd.org>; Wed, 15 Dec 2004 23:21:30 +0000 (GMT)
	(envelope-from esbjerg@xbsd.net)
Received: by enzo.xbsd.net (Postfix, from userid 1000)
	id B7F7117035; Thu, 16 Dec 2004 00:21:29 +0100 (CET)
Date: Thu, 16 Dec 2004 00:21:29 +0100
From: Sven Esbjerg <esbjerg@xbsd.net>
To: freebsd-perl@freebsd.org
Message-ID: <20041215232129.GB14760@esbjerg.name>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
User-Agent: Mutt/1.4.2.1i
Subject: MIME::Parser on 5.3
X-BeenThere: freebsd-perl@freebsd.org
X-Mailman-Version: 2.1.1
Precedence: list
List-Id: maintainer of a number of perl-related ports
	<freebsd-perl.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-perl>,
	<mailto:freebsd-perl-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-perl>
List-Post: <mailto:freebsd-perl@freebsd.org>
List-Help: <mailto:freebsd-perl-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-perl>,
	<mailto:freebsd-perl-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 15 Dec 2004 23:21:31 -0000

I'm trying to write a perl script which parses mime encoded emails.
However using MIME::Parser on freebsd 5.3 results in an error:

MIME::Parser: can't flush:  at
/usr/local/lib/perl5/site_perl/5.6.1/MIME/Parser.pm line 789, <STDIN> line 71.

When I try the same on FreeBSD 4.8 no errors occur and the parsing of the
email finishes.

The line 71 is the NextPart of af multipart/alternative email:
------_=_NextPart_002_01C4E28F.5E8E7894

The Perl code needed to provoke this error is:

#!/usr/bin/perl -w

use strict;
$|++;

my $envelope = <STDIN>;
use MIME::Parser;
use MIME::Entity;

my $parser = MIME::Parser->new;
$parser->output_to_core(1);
$parser->tmp_to_core(1);

my $ent = $parser->parse(\*STDIN);
$ent->dump_skeleton;


Has anyone seen this error before? 
Any ideas for fixing this problem?

Sven Esbjerg