r2844 - in
/packages/libemail-folder-perl/branches/upstream/current: Changes
META.yml lib/Email/Folder.pm lib/Email/Folder/Mbox.pm
ntyni-guest at users.alioth.debian.org
ntyni-guest at users.alioth.debian.org
Thu Jun 1 19:17:16 UTC 2006
Author: ntyni-guest
Date: Thu Jun 1 19:17:15 2006
New Revision: 2844
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2844
Log:
Load /tmp/tmp.SbCDvY7031/libemail-folder-perl-0.85 into
packages/libemail-folder-perl/branches/upstream/current.
Modified:
packages/libemail-folder-perl/branches/upstream/current/Changes
packages/libemail-folder-perl/branches/upstream/current/META.yml
packages/libemail-folder-perl/branches/upstream/current/lib/Email/Folder.pm
packages/libemail-folder-perl/branches/upstream/current/lib/Email/Folder/Mbox.pm
Modified: packages/libemail-folder-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-folder-perl/branches/upstream/current/Changes?rev=2844&op=diff
==============================================================================
--- packages/libemail-folder-perl/branches/upstream/current/Changes (original)
+++ packages/libemail-folder-perl/branches/upstream/current/Changes Thu Jun 1 19:17:15 2006
@@ -1,3 +1,7 @@
+0.85 Tuesday 4th April, 2006
+ Fix clobbering of $_ in Mbox.pm
+ Put FH in binmode to fix non-ascii mails on Windows
+
0.84 Friday 17th December, 2004
Added in ability for subclasses of Email::Folder::Mbox to override
IO::File creation.
Modified: packages/libemail-folder-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-folder-perl/branches/upstream/current/META.yml?rev=2844&op=diff
==============================================================================
--- packages/libemail-folder-perl/branches/upstream/current/META.yml (original)
+++ packages/libemail-folder-perl/branches/upstream/current/META.yml Thu Jun 1 19:17:15 2006
@@ -1,9 +1,8 @@
---- #YAML:1.0
+---
name: Email-Folder
-version: 0.84
+version: 0.85
author: ~
-abstract: |-
- read all the messages from a folder as Email::Simple objects.
+abstract: read all the messages from a folder as Email::Simple objects.
license: perl
requires:
Email::FolderType: 0.6
@@ -12,7 +11,7 @@
provides:
Email::Folder:
file: lib/Email/Folder.pm
- version: 0.84
+ version: 0.85
Email::Folder::Ezmlm:
file: lib/Email/Folder/Ezmlm.pm
Email::Folder::MH:
@@ -23,4 +22,4 @@
file: lib/Email/Folder/Mbox.pm
Email::Folder::Reader:
file: lib/Email/Folder/Reader.pm
-generated_by: Module::Build version 0.25
+generated_by: Module::Build version 0.2611
Modified: packages/libemail-folder-perl/branches/upstream/current/lib/Email/Folder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-folder-perl/branches/upstream/current/lib/Email/Folder.pm?rev=2844&op=diff
==============================================================================
--- packages/libemail-folder-perl/branches/upstream/current/lib/Email/Folder.pm (original)
+++ packages/libemail-folder-perl/branches/upstream/current/lib/Email/Folder.pm Thu Jun 1 19:17:15 2006
@@ -5,7 +5,7 @@
use Email::FolderType qw/folder_type/;
use vars qw($VERSION);
-$VERSION = "0.84";
+$VERSION = "0.85";
=head1 NAME
@@ -131,7 +131,7 @@
=head1 COPYING
-Copyright 2003, Simon Wistow
+Copyright 2006, Simon Wistow
Distributed under the same terms as Perl itself.
Modified: packages/libemail-folder-perl/branches/upstream/current/lib/Email/Folder/Mbox.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-folder-perl/branches/upstream/current/lib/Email/Folder/Mbox.pm?rev=2844&op=diff
==============================================================================
--- packages/libemail-folder-perl/branches/upstream/current/lib/Email/Folder/Mbox.pm (original)
+++ packages/libemail-folder-perl/branches/upstream/current/lib/Email/Folder/Mbox.pm Thu Jun 1 19:17:15 2006
@@ -111,10 +111,11 @@
}
sub _get_fh {
- my $self = shift;
- my $file = shift;
- my $fh = IO::File->new($file) or croak "Cannot open $file";
- return $fh;
+ my $self = shift;
+ my $file = shift;
+ my $fh = IO::File->new($file) or croak "Cannot open $file";
+ binmode($fh);
+ return $fh;
}
use constant debug => 0;
@@ -131,6 +132,7 @@
my $inheaders = 1;
++$count;
print "$count starting scanning at line $.\n" if debug;
+ local $_;
while (<$fh>) {
if ($_ eq $/ && $inheaders) { # end of headers
print "$count end of headers at line $.\n" if debug;
More information about the Pkg-perl-cvs-commits
mailing list