rev 1970 - in trunk/Email-Folder/lib/Email: . Folder

[prev] [thread] [next] [lurker] [Date index for 2006/03/31]

From: simon
Subject: rev 1970 - in trunk/Email-Folder/lib/Email: . Folder
Date: 11:54 on 31 Mar 2006
Author: simon
Date: 2006-03-31 11:54:38 +0100 (Fri, 31 Mar 2006)
New Revision: 1970

Modified:
   trunk/Email-Folder/lib/Email/Folder.pm
   trunk/Email-Folder/lib/Email/Folder/Mbox.pm
Log:
svn-commit.

Modified: trunk/Email-Folder/lib/Email/Folder/Mbox.pm
===================================================================
--- trunk/Email-Folder/lib/Email/Folder/Mbox.pm	2006-03-31 10:48:03 UTC (rev 1969)
+++ trunk/Email-Folder/lib/Email/Folder/Mbox.pm	2006-03-31 10:54:38 UTC (rev 1970)
@@ -94,8 +94,7 @@
     croak "$file is not a file"  unless (-f $file);
 
     local $/ = $self->{eol};
-    my $fh = IO::File->new($file) or croak "Cannot open $file";
-    binmode($fh);
+    my $fh = $self->_get_fh($file);
 
     if ($self->{seek_to}) {
         # we were told to seek.  hope it all goes well
@@ -111,6 +110,14 @@
     $self->{_fh} = $fh;
 }
 
+sub _get_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;
 my $count;
 

Modified: trunk/Email-Folder/lib/Email/Folder.pm
===================================================================
--- trunk/Email-Folder/lib/Email/Folder.pm	2006-03-31 10:48:03 UTC (rev 1969)
+++ trunk/Email-Folder/lib/Email/Folder.pm	2006-03-31 10:54:38 UTC (rev 1970)
@@ -5,7 +5,7 @@
 use Email::FolderType qw/folder_type/;
 
 use vars qw($VERSION);
-$VERSION = "0.83";
+$VERSION = "0.85";
 
 =head1 NAME
 
@@ -131,13 +131,20 @@
 
 =head1 COPYING
 
-Copyright 2003, Simon Wistow
+Copyright 2006, Simon Wistow
 
 Distributed under the same terms as Perl itself.
 
 This software is under no warranty and will probably ruin your life,
 kill your friends, burn your house and bring about the doobie brothers.
 
+=head1 SUPPORT
+
+This module is part of the Perl Email Project  - http://pep.kwiki.org/
+
+There is a mailing list at pep@xxxx.xxx (subscribe at pep-subscribe@xxxx.xxx)
+and an archive available at http://nntp.perl.org/group/pep.php
+
 =head1 SEE ALSO
 
 L<Email::LocalDelivery>, L<Email::FolderType>, L<Email::Simple>

Generated at 14:00 on 31 Mar 2006 by mariachi 0.52