r58806 - in /trunk/libauthen-sasl-perl: Changes META.yml SIGNATURE debian/changelog debian/control lib/Authen/SASL.pm lib/Authen/SASL/Perl/LOGIN.pm lib/Authen/SASL/Perl/PLAIN.pm t/server/login.t t/server/plain.t
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Thu Jun 3 16:45:41 UTC 2010
Author: ansgar-guest
Date: Thu Jun 3 16:45:09 2010
New Revision: 58806
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58806
Log:
* New upstream release.
* Add myself to Uploaders.
Modified:
trunk/libauthen-sasl-perl/Changes
trunk/libauthen-sasl-perl/META.yml
trunk/libauthen-sasl-perl/SIGNATURE
trunk/libauthen-sasl-perl/debian/changelog
trunk/libauthen-sasl-perl/debian/control
trunk/libauthen-sasl-perl/lib/Authen/SASL.pm
trunk/libauthen-sasl-perl/lib/Authen/SASL/Perl/LOGIN.pm
trunk/libauthen-sasl-perl/lib/Authen/SASL/Perl/PLAIN.pm
trunk/libauthen-sasl-perl/t/server/login.t
trunk/libauthen-sasl-perl/t/server/plain.t
Modified: trunk/libauthen-sasl-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-perl/Changes?rev=58806&op=diff
==============================================================================
--- trunk/libauthen-sasl-perl/Changes (original)
+++ trunk/libauthen-sasl-perl/Changes Thu Jun 3 16:45:09 2010
@@ -1,3 +1,7 @@
+Authen-SASL 2.15 -- Wed Jun 2 13:47:41 CDT 2010
+
+ * Makes sure that user callbacks are called [Yann Kerherve]
+
Authen-SASL 2.1401 -- Mon Mar 29 14:22:54 CDT 2010
* Add META.yml to release
Modified: trunk/libauthen-sasl-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-perl/META.yml?rev=58806&op=diff
==============================================================================
--- trunk/libauthen-sasl-perl/META.yml (original)
+++ trunk/libauthen-sasl-perl/META.yml Thu Jun 3 16:45:09 2010
@@ -27,4 +27,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: http://github.com/gbarr/perl-authen-sasl
-version: 2.1401
+version: 2.15
Modified: trunk/libauthen-sasl-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-perl/SIGNATURE?rev=58806&op=diff
==============================================================================
--- trunk/libauthen-sasl-perl/SIGNATURE (original)
+++ trunk/libauthen-sasl-perl/SIGNATURE Thu Jun 3 16:45:09 2010
@@ -14,10 +14,10 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 ead88ab7f0116246edbaedf5bc646d88ece4b270 Changes
+SHA1 f588621ba950f29ab4d0b7635cd7fe1d0acab746 Changes
SHA1 e8a4bccd71bb2a65e047160d57769d30ada1e6c9 MANIFEST
SHA1 76ce2a83a03713855f54e0f0f13093bab0f5de6d MANIFEST.SKIP
-SHA1 81015bd0fa16bb4ca02accc1f6600425e4d8e386 META.yml
+SHA1 169c92712c34939ff317c772ff87fbd63d917c77 META.yml
SHA1 30e38ea2e9ae64de8ddbf1529b823c930df7ac54 Makefile.PL
SHA1 d458613a6aef99468b37defcbf8321ec7c88fe76 api.txt
SHA1 81644069dc4507a71e4cfeef20780fee6c7ee00a compat_pl
@@ -30,7 +30,7 @@
SHA1 38c657de4d91f5a60ff8e6c6f6a5547daf7c4ab2 inc/Module/Install/Metadata.pm
SHA1 5c25f1104c0038041e3b93e0660c39171e4caf2b inc/Module/Install/Win32.pm
SHA1 94d47349c803c4bd2a9230d25e4db0b6aaf1acd8 inc/Module/Install/WriteAll.pm
-SHA1 80e9c208e23fb7246180def17db1e664b330b924 lib/Authen/SASL.pm
+SHA1 4bb43826d7ed6484737df5cee2c78d996efe6c59 lib/Authen/SASL.pm
SHA1 ef5e0a8a3c4ca083d307ab603b7a5a028d2cbf99 lib/Authen/SASL.pod
SHA1 81c1f6d65fb94ebf36e3928558d0f50b4968e2be lib/Authen/SASL/CRAM_MD5.pm
SHA1 dabe43f97abab76f875643defe311e7e29e46895 lib/Authen/SASL/EXTERNAL.pm
@@ -41,8 +41,8 @@
SHA1 6c60d02b4f05762f0e6e5d9faf2e06e0acbd25a7 lib/Authen/SASL/Perl/DIGEST_MD5.pm
SHA1 c4fce50b535c88ccddf6c844faf0870c52a3c90e lib/Authen/SASL/Perl/EXTERNAL.pm
SHA1 7c9facb2f8b81c430d1fd530a634e8cfc67e33f6 lib/Authen/SASL/Perl/GSSAPI.pm
-SHA1 2239365f6d105a5f855593a7ec5d5d361de033d0 lib/Authen/SASL/Perl/LOGIN.pm
-SHA1 16c6c896c4817309950c737f2cc36a355b244c03 lib/Authen/SASL/Perl/PLAIN.pm
+SHA1 e6eb9dcf283d92e9962b9df4d9805672b4d56a50 lib/Authen/SASL/Perl/LOGIN.pm
+SHA1 205ba41fe5d77fa431f1c41f00ba695794695da8 lib/Authen/SASL/Perl/PLAIN.pm
SHA1 be0c439da3f8f1740fa8b623cee9662946a62c3f t/anon.t
SHA1 2f0bc82458a42b9b2e9cf5792abb1611ee2fc2e7 t/callback.t
SHA1 b638f32f3215163b607c509a55026bafa5c5edfc t/cram_md5.t
@@ -57,12 +57,12 @@
SHA1 6a6c9fa037cdaf24091524cc399f9cc799547732 t/order.t
SHA1 0d3df2efa70ae53bf021707aae435fe54d96cc95 t/plain.t
SHA1 7bb229401b5a9d207594a24ecd5581f2a10ddfae t/server/digest_md5.t
-SHA1 2f4b83d5de685bd12e6a29cb3ee46389892167de t/server/login.t
-SHA1 5536df8fd14d2adf71c0508d35fd1c317d283601 t/server/plain.t
+SHA1 d653eeffdeb48bedbdafaf1d95cf307e072d0804 t/server/login.t
+SHA1 b6ca8bd0a0ddaca6db8b2641592b341655b39ae8 t/server/plain.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (Darwin)
-iEYEARECAAYFAkuw/nQACgkQR0BL4gbYw3Q6cwCeKdnh8LPGUGpC75mEziu1Jru1
-MsgAn1Xu3/089JXKb/pWk3CK/eOqfaGa
-=RJCA
+iEYEARECAAYFAkwGqUcACgkQR0BL4gbYw3SYiwCeMDc2B1nNdx0hz1zR2dN3uZCs
+FVEAn2/C5oS8xKQJjpVNxmwcyyjVC8aI
+=S5F4
-----END PGP SIGNATURE-----
Modified: trunk/libauthen-sasl-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-perl/debian/changelog?rev=58806&op=diff
==============================================================================
--- trunk/libauthen-sasl-perl/debian/changelog (original)
+++ trunk/libauthen-sasl-perl/debian/changelog Thu Jun 3 16:45:09 2010
@@ -1,13 +1,14 @@
-libauthen-sasl-perl (2.1401-1) UNRELEASED; urgency=low
+libauthen-sasl-perl (2.1500-1) unstable; urgency=low
- IGNORE-VERSION: 2.1401-1
- only change: META.yml added
-
- * New upstream release.
+ [ gregor herrmann ]
* debian/watch: add uversionmangle to cope with future 2-digit minor
versions.
- -- gregor herrmann <gregoa at debian.org> Tue, 30 Mar 2010 18:13:22 +0200
+ [ Ansgar Burchardt ]
+ * New upstream release.
+ * Add myself to Uploaders.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Fri, 04 Jun 2010 01:44:28 +0900
libauthen-sasl-perl (2.14-1) unstable; urgency=low
Modified: trunk/libauthen-sasl-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-perl/debian/control?rev=58806&op=diff
==============================================================================
--- trunk/libauthen-sasl-perl/debian/control (original)
+++ trunk/libauthen-sasl-perl/debian/control Thu Jun 3 16:45:09 2010
@@ -5,7 +5,8 @@
Build-Depends-Indep: perl, libdigest-hmac-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: AGOSTINI Yves <agostini at univ-metz.fr>,
- Gunnar Wolf <gwolf at debian.org>, Franck Joncourt <franck at debian.org>
+ Gunnar Wolf <gwolf at debian.org>, Franck Joncourt <franck at debian.org>,
+ Ansgar Burchardt <ansgar at 43-1.org>
Standards-Version: 3.8.4
Homepage: http://search.cpan.org/dist/Authen-SASL/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libauthen-sasl-perl/
Modified: trunk/libauthen-sasl-perl/lib/Authen/SASL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-perl/lib/Authen/SASL.pm?rev=58806&op=diff
==============================================================================
--- trunk/libauthen-sasl-perl/lib/Authen/SASL.pm (original)
+++ trunk/libauthen-sasl-perl/lib/Authen/SASL.pm Thu Jun 3 16:45:09 2010
@@ -8,7 +8,7 @@
use vars qw($VERSION @Plugins);
use Carp;
-$VERSION = "2.1401";
+$VERSION = "2.15";
@Plugins = qw(
Authen::SASL::XS
Modified: trunk/libauthen-sasl-perl/lib/Authen/SASL/Perl/LOGIN.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-perl/lib/Authen/SASL/Perl/LOGIN.pm?rev=58806&op=diff
==============================================================================
--- trunk/libauthen-sasl-perl/lib/Authen/SASL/Perl/LOGIN.pm (original)
+++ trunk/libauthen-sasl-perl/lib/Authen/SASL/Perl/LOGIN.pm Thu Jun 3 16:45:09 2010
@@ -97,11 +97,11 @@
my $result = shift;
unless ($result) {
$self->set_error($error);
- $user_cb->();
}
else {
- $self->set_success;
- }
+ $self->set_success;
+ }
+ $user_cb->();
};
$checkpass->($self => $answers => $cb );
return;
Modified: trunk/libauthen-sasl-perl/lib/Authen/SASL/Perl/PLAIN.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-perl/lib/Authen/SASL/Perl/PLAIN.pm?rev=58806&op=diff
==============================================================================
--- trunk/libauthen-sasl-perl/lib/Authen/SASL/Perl/PLAIN.pm (original)
+++ trunk/libauthen-sasl-perl/lib/Authen/SASL/Perl/PLAIN.pm Thu Jun 3 16:45:09 2010
@@ -61,11 +61,11 @@
my $result = shift;
unless ($result) {
$self->set_error($error);
- $user_cb->();
}
else {
$self->set_success;
}
+ $user_cb->();
};
$checkpass->($self => { %parts } => $cb );
return;
Modified: trunk/libauthen-sasl-perl/t/server/login.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-perl/t/server/login.t?rev=58806&op=diff
==============================================================================
--- trunk/libauthen-sasl-perl/t/server/login.t (original)
+++ trunk/libauthen-sasl-perl/t/server/login.t Thu Jun 3 16:45:09 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 20;
+use Test::More tests => 32;
use Authen::SASL qw(Perl);
use_ok('Authen::SASL::Perl::LOGIN');
@@ -40,9 +40,13 @@
my $creds = shift;
my @steps = @_;
## wouldn't really work in an async environemnt
- $server->server_start("");
+ my $cb;
+ $server->server_start("", sub { $cb = 1 });
+ ok $cb, "callback called";
for (@steps) {
- $server->server_step($_);
+ $cb = 0;
+ $server->server_step($_, sub { $cb = 1 });
+ ok $cb, "callback called";
}
ok !$server->is_success, "failure";
ok ($server->need_step or $server->error), "no success means that";
@@ -68,7 +72,11 @@
ok($ssasl = Authen::SASL->new( %params ), "new");
$server = $ssasl->server_new("ldap","localhost");
-$server->server_start("");
-$server->server_step("foo");
-$server->server_step("bar");
+my $cb;
+$server->server_start("", sub { $cb = 1 });
+ok $cb, "callback called"; $cb = 0;
+$server->server_step("foo", sub { $cb = 1 });
+ok $cb, "callback called"; $cb = 0;
+$server->server_step("bar", sub { $cb = 1 });
+ok $cb, "callback called";
ok $server->is_success, "success";
Modified: trunk/libauthen-sasl-perl/t/server/plain.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-perl/t/server/plain.t?rev=58806&op=diff
==============================================================================
--- trunk/libauthen-sasl-perl/t/server/plain.t (original)
+++ trunk/libauthen-sasl-perl/t/server/plain.t Thu Jun 3 16:45:09 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 47;
+use Test::More tests => 67;
use Authen::SASL qw(Perl);
use_ok('Authen::SASL::Perl::PLAIN');
@@ -67,7 +67,9 @@
is_failure("$authname\0yann\0\0maelys", "double null");
is_failure("$authname\0yann\0maelys\0trailing", "trailing");
- $server->server_start("$authname\0yann\0maelys");
+ my $cb;
+ $server->server_start("$authname\0yann\0maelys", sub { $cb = 1 });
+ ok $cb, "callback called";
ok $server->is_success, "success finally";
}
@@ -97,7 +99,9 @@
sub is_failure {
my $creds = shift;
my $msg = shift;
- $server->server_start($creds);
+ my $cb;
+ $server->server_start($creds, sub { $cb = 1 });
+ ok $cb, 'callback called';
ok !$server->is_success, $msg || "failure";
my $error = $server->error || "";
like $error, qr/match/i, "failure";
More information about the Pkg-perl-cvs-commits
mailing list