r1515 - in packages/libnet-imap-simple-perl/trunk: . debian lib/Net/IMAP

[Gunnar Wolf]

Author: gwolf
Date: 2005-11-17 18:02:17 +0000 (Thu, 17 Nov 2005)
New Revision: 1515

Modified:
   packages/libnet-imap-simple-perl/trunk/Changes
   packages/libnet-imap-simple-perl/trunk/META.yml
   packages/libnet-imap-simple-perl/trunk/debian/changelog
   packages/libnet-imap-simple-perl/trunk/lib/Net/IMAP/Simple.pm
Log:
New upstream version


Modified: packages/libnet-imap-simple-perl/trunk/Changes
===================================================================
--- packages/libnet-imap-simple-perl/trunk/Changes	2005-11-17 17:59:57 UTC (rev 1514)
+++ packages/libnet-imap-simple-perl/trunk/Changes	2005-11-17 18:02:17 UTC (rev 1515)
@@ -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/trunk/META.yml
===================================================================
--- packages/libnet-imap-simple-perl/trunk/META.yml	2005-11-17 17:59:57 UTC (rev 1514)
+++ packages/libnet-imap-simple-perl/trunk/META.yml	2005-11-17 18:02:17 UTC (rev 1515)
@@ -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/trunk/debian/changelog
===================================================================
--- packages/libnet-imap-simple-perl/trunk/debian/changelog	2005-11-17 17:59:57 UTC (rev 1514)
+++ packages/libnet-imap-simple-perl/trunk/debian/changelog	2005-11-17 18:02:17 UTC (rev 1515)
@@ -1,6 +1,12 @@
+libnet-imap-simple-perl (1.14-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Gunnar Wolf <gwolf at debian.org>  Thu, 17 Nov 2005 11:56:35 -0600
+
 libnet-imap-simple-perl (0.104-1) unstable; urgency=low
 
-  * Initial real upload to Debian - Sorry, thought I had already \
+  * Initial real upload to Debian - Sorry, thought I had already 
     uploaded... Good thing I did it now, as the author's versioning scheme
     is severely fucked up. (Closes: #252609, #322647)
   * Added debian/watch

Modified: packages/libnet-imap-simple-perl/trunk/lib/Net/IMAP/Simple.pm
===================================================================
--- packages/libnet-imap-simple-perl/trunk/lib/Net/IMAP/Simple.pm	2005-11-17 17:59:57 UTC (rev 1514)
+++ packages/libnet-imap-simple-perl/trunk/lib/Net/IMAP/Simple.pm	2005-11-17 18:02:17 UTC (rev 1515)
@@ -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;