r42466 - in /trunk/libmail-imapclient-perl: Changes MANIFEST META.yml debian/changelog debian/control debian/copyright debian/rules lib/Mail/IMAPClient.pm t/simple.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Sat Aug 22 13:23:09 UTC 2009


Author: jawnsy-guest
Date: Sat Aug 22 13:23:03 2009
New Revision: 42466

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42466
Log:
* New upstream release
  + New methods Rfc3501_date{,time} used by deprecated methods (RT#48510)
  + login() hack to quote an empty password (RT#48107)
* Change to new short rules format + override (dh 7.0.50)
* Rearrange dependencies in control file
* Standards-Version 3.8.3 (no changes)

Added:
    trunk/libmail-imapclient-perl/t/simple.t
      - copied unchanged from r42462, branches/upstream/libmail-imapclient-perl/current/t/simple.t
Modified:
    trunk/libmail-imapclient-perl/Changes
    trunk/libmail-imapclient-perl/MANIFEST
    trunk/libmail-imapclient-perl/META.yml
    trunk/libmail-imapclient-perl/debian/changelog
    trunk/libmail-imapclient-perl/debian/control
    trunk/libmail-imapclient-perl/debian/copyright
    trunk/libmail-imapclient-perl/debian/rules
    trunk/libmail-imapclient-perl/lib/Mail/IMAPClient.pm

Modified: trunk/libmail-imapclient-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-imapclient-perl/Changes?rev=42466&op=diff
==============================================================================
--- trunk/libmail-imapclient-perl/Changes (original)
+++ trunk/libmail-imapclient-perl/Changes Sat Aug 22 13:23:03 2009
@@ -4,6 +4,15 @@
 Changes from 2.99_01 to 3.16    made by Mark Overmeer
 Changes from 0.09    to 2.99_01 made by David Kernen
 	- Potential compatibility issues from 3.17+ highlighted with '*'
+
+version 3.20: Fri Aug 21 17:40:40 EDT 2009
+	- added file/tests in t/simple.t
+	- added methods Rfc3501_date/Rfc3501_datetime
+	  used by deprecated methods Rfc2060_date/Rfc2060_datetime
+	  rt.cpan.org#48510: Rfc3501_date/Rfc3501_datetime methods do
+	    not exist [sedmonds]
+	- login() hack to quote an empty password
+	  rt.cpan.org#48107: Cannot LOGIN with empty password [skunk]
 
 version 3.19: Fri Jun 19 14:59:15 EDT 2009
 	- *search() backwards compat: caller must quote single arg properly

Modified: trunk/libmail-imapclient-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-imapclient-perl/MANIFEST?rev=42466&op=diff
==============================================================================
--- trunk/libmail-imapclient-perl/MANIFEST (original)
+++ trunk/libmail-imapclient-perl/MANIFEST Sat Aug 22 13:23:03 2009
@@ -34,6 +34,7 @@
 t/bodystructure.t
 t/messageset.t
 t/pod.t
+t/simple.t
 t/thread.t
 test_template.txt
 META.yml                                 Module meta-data (added by MakeMaker)

Modified: trunk/libmail-imapclient-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-imapclient-perl/META.yml?rev=42466&op=diff
==============================================================================
--- trunk/libmail-imapclient-perl/META.yml (original)
+++ trunk/libmail-imapclient-perl/META.yml Sat Aug 22 13:23:03 2009
@@ -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:         Mail-IMAPClient
-version:      3.19
+version:      3.20
 version_from: lib/Mail/IMAPClient.pm
 installdirs:  site
 requires:

Modified: trunk/libmail-imapclient-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-imapclient-perl/debian/changelog?rev=42466&op=diff
==============================================================================
--- trunk/libmail-imapclient-perl/debian/changelog (original)
+++ trunk/libmail-imapclient-perl/debian/changelog Sat Aug 22 13:23:03 2009
@@ -1,3 +1,14 @@
+libmail-imapclient-perl (3.20-1) UNRELEASED; urgency=low
+
+  * New upstream release
+    + New methods Rfc3501_date{,time} used by deprecated methods (RT#48510)
+    + login() hack to quote an empty password (RT#48107)
+  * Change to new short rules format + override (dh 7.0.50)
+  * Rearrange dependencies in control file
+  * Standards-Version 3.8.3 (no changes)
+
+ -- Jonathan Yu <frequency at cpan.org>  Sat, 22 Aug 2009 04:45:39 -0400
+
 libmail-imapclient-perl (3.19-1) unstable; urgency=low
 
   [ Nathan Handler ]

Modified: trunk/libmail-imapclient-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-imapclient-perl/debian/control?rev=42466&op=diff
==============================================================================
--- trunk/libmail-imapclient-perl/debian/control (original)
+++ trunk/libmail-imapclient-perl/debian/control Sat Aug 22 13:23:03 2009
@@ -1,16 +1,16 @@
 Source: libmail-imapclient-perl
 Priority: optional
 Section: perl
+Build-Depends: debhelper (>= 7.0.50), quilt (>= 0.46-7)
+Build-Depends-Indep: perl, libparse-recdescent-perl, libtest-pod-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Gunnar Wolf <gwolf at debian.org>, Niko Tyni <ntyni at debian.org>,
- Russ Allbery <rra at debian.org>, gregor herrmann <gregoa at debian.org>,
- Rene Mayorga <rmayorga at debian.org.sv>, Ansgar Burchardt <ansgar at 43-1.org>,
+Uploaders: Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>,
+ Ansgar Burchardt <ansgar at 43-1.org>, Rene Mayorga <rmayorga at debian.org.sv>,
+ gregor herrmann <gregoa at debian.org>, Nathan Handler <nhandler at ubuntu.com>,
  Ryan Niebur <ryanryan52 at gmail.com>, Jonathan Yu <frequency at cpan.org>,
- Nathan Handler <nhandler at ubuntu.com>, Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
-Build-Depends: debhelper (>= 7), quilt (>= 0.40)
-Build-Depends-Indep: libparse-recdescent-perl, libtest-pod-perl (>= 1.00),
- perl (>= 5.6.0-17)
-Standards-Version: 3.8.2
+ Gunnar Wolf <gwolf at debian.org>, Niko Tyni <ntyni at debian.org>,
+ Russ Allbery <rra at debian.org>
+Standards-Version: 3.8.3
 Homepage: http://search.cpan.org/dist/Mail-IMAPClient/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libmail-imapclient-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libmail-imapclient-perl/

Modified: trunk/libmail-imapclient-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-imapclient-perl/debian/copyright?rev=42466&op=diff
==============================================================================
--- trunk/libmail-imapclient-perl/debian/copyright (original)
+++ trunk/libmail-imapclient-perl/debian/copyright Sat Aug 22 13:23:03 2009
@@ -1,4 +1,5 @@
-Format-Specification: http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=226
+Format-Specification:
+    http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
 Upstream-Name: Mail-IMAPClient
 Upstream-Maintainer: Phil Lobbes <phil at perkpartners.com>
 Upstream-Source: http://search.cpan.org/dist/Mail-IMAPClient/

Modified: trunk/libmail-imapclient-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-imapclient-perl/debian/rules?rev=42466&op=diff
==============================================================================
--- trunk/libmail-imapclient-perl/debian/rules (original)
+++ trunk/libmail-imapclient-perl/debian/rules Sat Aug 22 13:23:03 2009
@@ -1,29 +1,12 @@
 #!/usr/bin/make -f
+
 PACKAGE = $(shell dh_listpackages)
 TMP     = $(CURDIR)/debian/$(PACKAGE)
-include /usr/share/quilt/quilt.make
 
-build: build-stamp
-build-stamp: $(QUILT_STAMPFN)
-	dh build
-	touch $@
-
-clean: unpatch
+%:
 	dh $@
 
-install: install-stamp
-install-stamp: build-stamp
-	dh install --until dh_fixperms
+override_dh_fixperms:
+	dh_fixperms
 	find $(TMP) -name '*.grammar' | xargs --no-run-if-empty chmod 644
 	find $(TMP) -name '*.pod' | xargs --no-run-if-empty chmod 644
-	dh install --after dh_fixperms
-	touch $@
-
-binary-arch:
-
-binary-indep: install
-	dh $@
-
-binary: binary-arch binary-indep
-
-.PHONY: binary binary-arch binary-indep install clean build

Modified: trunk/libmail-imapclient-perl/lib/Mail/IMAPClient.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmail-imapclient-perl/lib/Mail/IMAPClient.pm?rev=42466&op=diff
==============================================================================
--- trunk/libmail-imapclient-perl/lib/Mail/IMAPClient.pm (original)
+++ trunk/libmail-imapclient-perl/lib/Mail/IMAPClient.pm Sat Aug 22 13:23:03 2009
@@ -5,7 +5,7 @@
 use warnings;
 
 package Mail::IMAPClient;
-our $VERSION = '3.19';
+our $VERSION = '3.20';
 
 use Mail::IMAPClient::MessageSet;
 
@@ -139,10 +139,11 @@
 my @mnt = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
 
 sub Rfc822_date {
-    my $class = shift;    #Date: Fri, 09 Jul 1999 13:10:55 -0000#
+    my $class = shift;
     my $date = $class =~ /^\d+$/ ? $class : shift;    # method or function?
-    my @date = gmtime $date;
-
+    my @date = gmtime($date);
+
+    #Date: Fri, 09 Jul 1999 13:10:55 -0000
     sprintf(
         "%s, %02d %s %04d %02d:%02d:%02d -%04d",
         $dow[ $date[6] ],
@@ -154,19 +155,29 @@
 }
 
 # The following methods create valid dates for use in IMAP search strings
+# - provide Rfc2060* methods/functions for backwards compatibility
 sub Rfc2060_date {
-    my $class = shift;                                 # 11-Jan-2000
-    my $stamp = $class =~ /^\d+$/ ? $class : shift;    # method or function
-    my @date  = gmtime $stamp;
-
+    $_[0] =~ /^\d+$/ ? Rfc3501_date(@_) : shift->Rfc3501_date(@_);
+}
+sub Rfc3501_date {
+    my $class = shift;
+    my $stamp = $class =~ /^\d+$/ ? $class : shift;
+    my @date  = gmtime($stamp);
+
+    # 11-Jan-2000
     sprintf( "%02d-%s-%04d", $date[3], $mnt[ $date[4] ], $date[5] + 1900 );
 }
 
 sub Rfc2060_datetime($;$) {
-    my ( $class, $stamp, $zone ) = @_;    # 11-Jan-2000 04:04:04 +0000
-    $zone ||= '+0000';
-    my @date = gmtime $stamp;
-
+    $_[0] =~ /^\d+$/ ? Rfc3501_datetime(@_) : shift->Rfc3501_datetime(@_);
+}
+sub Rfc3501_datetime($;$) {
+    my $class = shift;
+    my $stamp = $class =~ /^\d+$/ ? $class : shift;
+    my $zone  = shift || '+0000';
+    my @date  = gmtime($stamp);
+
+    # 11-Jan-2000 04:04:04 +0000
     sprintf(
         "%02d-%s-%04d %02d:%02d:%02d %s",
         $date[3],
@@ -367,7 +378,8 @@
 
     return undef unless ( defined($passwd) and defined($id) );
 
-    if ( $passwd =~ m/\W/ ) {    # need to quote
+    # BUG: should use Quote() with $passwd and $id
+    if ( $passwd eq "" or $passwd =~ m/\W/ ) {
         $passwd =~ s/(["\\])/\\$1/g;
         $passwd = qq("$passwd");
     }




More information about the Pkg-perl-cvs-commits mailing list