"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Mail/Mbox/MessageParser.pm" between
Mail-Mbox-MessageParser-1.5110.tar.gz and Mail-Mbox-MessageParser-1.5111.tar.gz

About: Mail-Mbox-MessageParser is a feature-poor but very fast mbox parser (Perl module).

MessageParser.pm  (Mail-Mbox-MessageParser-1.5110)	:	MessageParser.pm  (Mail-Mbox-MessageParser-1.5111)
skipping to change at line 23		skipping to change at line 23
use Mail::Mbox::MessageParser::Perl;		use Mail::Mbox::MessageParser::Perl;
use Mail::Mbox::MessageParser::Grep;		use Mail::Mbox::MessageParser::Grep;
use Mail::Mbox::MessageParser::Cache;		use Mail::Mbox::MessageParser::Cache;
use vars qw( @ISA $VERSION $_DEBUG );		use vars qw( @ISA $VERSION $_DEBUG );
use vars qw( $_CACHE $UPDATING_CACHE );		use vars qw( $_CACHE $UPDATING_CACHE );
@ISA = qw(Exporter);		@ISA = qw(Exporter);
$VERSION = sprintf "%d.%02d%02d", q/1.51.10/ =~ /(\d+)/g;		$VERSION = sprintf "%d.%02d%02d", q/1.51.11/ =~ /(\d+)/g;
$_DEBUG = 0;		$_DEBUG = 0;
#-------------------------------------------------------------------------------		#-------------------------------------------------------------------------------
# The class-wide cache, which will be read and written when necessary. i.e.		# The class-wide cache, which will be read and written when necessary. i.e.
# read when an folder reader object is created which uses caching, and		# read when an folder reader object is created which uses caching, and
# written when a different cache is specified, or when the program exits,		# written when a different cache is specified, or when the program exits,
*_CACHE = \$Mail::Mbox::MessageParser::MetaInfo::_CACHE;		*_CACHE = \$Mail::Mbox::MessageParser::MetaInfo::_CACHE;
*UPDATING_CACHE = \$Mail::Mbox::MessageParser::MetaInfo::UPDATING_CACHE;		*UPDATING_CACHE = \$Mail::Mbox::MessageParser::MetaInfo::UPDATING_CACHE;
skipping to change at line 559		skipping to change at line 559
{		{
my $file_handle = shift;		my $file_handle = shift;
my $file_type = shift;		my $file_type = shift;
return (undef,"Can't decompress file handle--no decompressor available")		return (undef,"Can't decompress file handle--no decompressor available")
unless defined $Mail::Mbox::MessageParser::Config{'programs'}{$file_type};		unless defined $Mail::Mbox::MessageParser::Config{'programs'}{$file_type};
my $filter_command = qq{"$Mail::Mbox::MessageParser::Config{'programs'}{$file_ type}" -cd};		my $filter_command = qq{"$Mail::Mbox::MessageParser::Config{'programs'}{$file_ type}" -cd};
my ($temp_file_handle, $temp_file_name) =		my ($temp_file_handle, $temp_file_name) =
File::Temp::tempfile('mail-mbox-messageparser-XXXXXX', SUFFIX => '.tmp', UNL INK => 1);		File::Temp::tempfile('mail-mbox-messageparser-XXXXXX', SUFFIX => '.tmp', TMP DIR => 1, UNLINK => 1);
while(my $line = <$file_handle>)		while(my $line = <$file_handle>)
{		{
print $temp_file_handle $line;		print $temp_file_handle $line;
}		}
close $file_handle;		close $file_handle;
# So that it won't be deleted until the program is complete		# So that it won't be deleted until the program is complete
# close $temp_file_handle;		# close $temp_file_handle;
End of changes. 2 change blocks.
2 lines changed or deleted		2 lines changed or added

---