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]

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;