r1513 - in packages/libnet-imap-simple-perl/branches/upstream/current: . lib/Net/IMAP

[Gunnar Wolf]

Author: gwolf
Date: 2005-11-17 17:59:44 +0000 (Thu, 17 Nov 2005)
New Revision: 1513

Modified:
   packages/libnet-imap-simple-perl/branches/upstream/current/Changes
   packages/libnet-imap-simple-perl/branches/upstream/current/META.yml
   packages/libnet-imap-simple-perl/branches/upstream/current/lib/Net/IMAP/Simple.pm
Log:
Load /tmp/tmp.VYceaz/libnet-imap-simple-perl-1.14 into
packages/libnet-imap-simple-perl/branches/upstream/current.


Modified: packages/libnet-imap-simple-perl/branches/upstream/current/Changes
===================================================================
--- packages/libnet-imap-simple-perl/branches/upstream/current/Changes	2005-11-17 17:12:56 UTC (rev 1512)
+++ packages/libnet-imap-simple-perl/branches/upstream/current/Changes	2005-11-17 17:59:44 UTC (rev 1513)
@@ -1,4 +1,17 @@
 Revision history for Perl extension Net::IMAP::Simple.
+1.14  2005-10-01
+    - Fixed error in sample code within the POD documentation
+      identified by Matthew S. Hallacy
+
+1.13  2005-09-28
+    - Versioning schema changed to use CVS versioning rather than
+      hard coded versioning. This is to address issues some people
+      are having with bug tracking and package management tools.
+
+0.105 2005-09-28
+    - Fixed syntax problem in the bindaddr option. Thanks
+      Dagobert Michelsen for pointing this out.
+
 0.104 2005-08-06
     - Fixed major bug discovered in get() and getfh() which caused
       message lines to be dropped if they started with an "*"

Modified: packages/libnet-imap-simple-perl/branches/upstream/current/META.yml
===================================================================
--- packages/libnet-imap-simple-perl/branches/upstream/current/META.yml	2005-11-17 17:12:56 UTC (rev 1512)
+++ packages/libnet-imap-simple-perl/branches/upstream/current/META.yml	2005-11-17 17:59:44 UTC (rev 1513)
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Net-IMAP-Simple
-version:      0.104
+version:      1.14
 version_from: lib/Net/IMAP/Simple.pm
 installdirs:  site
 requires:

Modified: packages/libnet-imap-simple-perl/branches/upstream/current/lib/Net/IMAP/Simple.pm
===================================================================
--- packages/libnet-imap-simple-perl/branches/upstream/current/lib/Net/IMAP/Simple.pm	2005-11-17 17:12:56 UTC (rev 1512)
+++ packages/libnet-imap-simple-perl/branches/upstream/current/lib/Net/IMAP/Simple.pm	2005-11-17 17:59:44 UTC (rev 1513)
@@ -1,11 +1,10 @@
 package Net::IMAP::Simple;
-# $Id: Simple.pm,v 1.11 2005/08/06 10:38:04 cfaber Exp $
 use strict;
 use IO::File;
 use IO::Socket;
 
 use vars qw[$VERSION];
-$VERSION = '0.104';
+$VERSION = $1 if('$Id: Simple.pm,v 1.14 2005/10/01 22:46:50 cfaber Exp $' =~ /,v ([\d.]+) /);
 
 =head1 NAME
 
@@ -30,7 +29,7 @@
     # Print the subject's of all the messages in the INBOX
     my $nm = $imap->select('INBOX');
 
-    for(my $i = 1; $i < $nm; $i++){
+    for(my $i = 1; $i <= $nm; $i++){
         if($imap->seen($i)){
             print "*";
         } else {
@@ -148,7 +147,7 @@
 	PeerPort => $self->{port},
 	Timeout  => $self->{timeout},
 	Proto    => 'tcp',
-	($self->{bindaddr} ? { LocalAddr => $self->{bindaddr} } : '')
+	($self->{bindaddr} ? { LocalAddr => $self->{bindaddr} } : ())
  );
 
  return $sock;