r58804 - in /branches/upstream/libauthen-sasl-perl/current: Changes META.yml SIGNATURE 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:33:36 UTC 2010
Author: ansgar-guest
Date: Thu Jun 3 16:29:39 2010
New Revision: 58804
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58804
Log:
[svn-upgrade] Integrating new upstream version, libauthen-sasl-perl (2.15)
Modified:
branches/upstream/libauthen-sasl-perl/current/Changes
branches/upstream/libauthen-sasl-perl/current/META.yml
branches/upstream/libauthen-sasl-perl/current/SIGNATURE
branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL.pm
branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL/Perl/LOGIN.pm
branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL/Perl/PLAIN.pm
branches/upstream/libauthen-sasl-perl/current/t/server/login.t
branches/upstream/libauthen-sasl-perl/current/t/server/plain.t
Modified: branches/upstream/libauthen-sasl-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libauthen-sasl-perl/current/Changes?rev=58804&op=diff
==============================================================================
--- branches/upstream/libauthen-sasl-perl/current/Changes (original)
+++ branches/upstream/libauthen-sasl-perl/current/Changes Thu Jun 3 16:29:39 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: branches/upstream/libauthen-sasl-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libauthen-sasl-perl/current/META.yml?rev=58804&op=diff
==============================================================================
--- branches/upstream/libauthen-sasl-perl/current/META.yml (original)
+++ branches/upstream/libauthen-sasl-perl/current/META.yml Thu Jun 3 16:29:39 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: branches/upstream/libauthen-sasl-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libauthen-sasl-perl/current/SIGNATURE?rev=58804&op=diff
==============================================================================
--- branches/upstream/libauthen-sasl-perl/current/SIGNATURE (original)
+++ branches/upstream/libauthen-sasl-perl/current/SIGNATURE Thu Jun 3 16:29:39 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: branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL.pm?rev=58804&op=diff
==============================================================================
--- branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL.pm (original)
+++ branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL.pm Thu Jun 3 16:29:39 2010
@@ -8,7 +8,7 @@
use vars qw($VERSION @Plugins);
use Carp;
-$VERSION = "2.1401";
+$VERSION = "2.15";
@Plugins = qw(
Authen::SASL::XS
Modified: branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL/Perl/LOGIN.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL/Perl/LOGIN.pm?rev=58804&op=diff
==============================================================================
--- branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL/Perl/LOGIN.pm (original)
+++ branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL/Perl/LOGIN.pm Thu Jun 3 16:29:39 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: branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL/Perl/PLAIN.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL/Perl/PLAIN.pm?rev=58804&op=diff
==============================================================================
--- branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL/Perl/PLAIN.pm (original)
+++ branches/upstream/libauthen-sasl-perl/current/lib/Authen/SASL/Perl/PLAIN.pm Thu Jun 3 16:29:39 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: branches/upstream/libauthen-sasl-perl/current/t/server/login.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libauthen-sasl-perl/current/t/server/login.t?rev=58804&op=diff
==============================================================================
--- branches/upstream/libauthen-sasl-perl/current/t/server/login.t (original)
+++ branches/upstream/libauthen-sasl-perl/current/t/server/login.t Thu Jun 3 16:29:39 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: branches/upstream/libauthen-sasl-perl/current/t/server/plain.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libauthen-sasl-perl/current/t/server/plain.t?rev=58804&op=diff
==============================================================================
--- branches/upstream/libauthen-sasl-perl/current/t/server/plain.t (original)
+++ branches/upstream/libauthen-sasl-perl/current/t/server/plain.t Thu Jun 3 16:29:39 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