Hello community, here is the log from the commit of package perl-Authen-SASL for openSUSE:Factory checked in at Wed May 18 09:12:49 CEST 2011.
-------- --- perl-Authen-SASL/perl-Authen-SASL.changes 2010-12-01 07:56:00.000000000 +0100 +++ /mounts/work_src_done/STABLE/perl-Authen-SASL/perl-Authen-SASL.changes 2011-05-16 09:56:49.000000000 +0200 @@ -1,0 +2,7 @@ +Mon May 16 07:34:56 UTC 2011 - [email protected] + +- update to 2.15 + * Makes sure that user callbacks are called [Yann Kerherve] +- license correction + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- Authen-SASL-2.1401.tar.bz2 New: ---- Authen-SASL-2.15.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Authen-SASL.spec ++++++ --- /var/tmp/diff_new_pack.eeGS1b/_old 2011-05-18 09:12:23.000000000 +0200 +++ /var/tmp/diff_new_pack.eeGS1b/_new 2011-05-18 09:12:23.000000000 +0200 @@ -1,7 +1,7 @@ # -# spec file for package perl-Authen-SASL (Version 2.1401) +# spec file for package perl-Authen-SASL # -# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -20,9 +20,9 @@ Name: perl-Authen-SASL Summary: SASL Authentication framework -Version: 2.1401 -Release: 4 -License: Artistic +Version: 2.15 +Release: 1 +License: GPL+ or Artistic Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Authen-SASL Source: Authen-SASL-%{version}.tar.bz2 ++++++ Authen-SASL-2.1401.tar.bz2 -> Authen-SASL-2.15.tar.bz2 ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Authen-SASL-2.1401/Changes new/Authen-SASL-2.15/Changes --- old/Authen-SASL-2.1401/Changes 2010-03-29 21:22:58.000000000 +0200 +++ new/Authen-SASL-2.15/Changes 2010-06-02 20:47:57.000000000 +0200 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Authen-SASL-2.1401/META.yml new/Authen-SASL-2.15/META.yml --- old/Authen-SASL-2.1401/META.yml 2010-03-29 21:24:35.000000000 +0200 +++ new/Authen-SASL-2.15/META.yml 2010-06-02 20:56:07.000000000 +0200 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Authen-SASL-2.1401/SIGNATURE new/Authen-SASL-2.15/SIGNATURE --- old/Authen-SASL-2.1401/SIGNATURE 2010-03-29 21:24:40.000000000 +0200 +++ new/Authen-SASL-2.15/SIGNATURE 2010-06-02 20:56:09.000000000 +0200 @@ -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----- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Authen-SASL-2.1401/lib/Authen/SASL/Perl/LOGIN.pm new/Authen-SASL-2.15/lib/Authen/SASL/Perl/LOGIN.pm --- old/Authen-SASL-2.1401/lib/Authen/SASL/Perl/LOGIN.pm 2010-03-11 16:10:46.000000000 +0100 +++ new/Authen-SASL-2.15/lib/Authen/SASL/Perl/LOGIN.pm 2010-06-02 20:45:18.000000000 +0200 @@ -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; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Authen-SASL-2.1401/lib/Authen/SASL/Perl/PLAIN.pm new/Authen-SASL-2.15/lib/Authen/SASL/Perl/PLAIN.pm --- old/Authen-SASL-2.1401/lib/Authen/SASL/Perl/PLAIN.pm 2010-03-11 16:10:46.000000000 +0100 +++ new/Authen-SASL-2.15/lib/Authen/SASL/Perl/PLAIN.pm 2010-06-02 20:45:18.000000000 +0200 @@ -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; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Authen-SASL-2.1401/lib/Authen/SASL.pm new/Authen-SASL-2.15/lib/Authen/SASL.pm --- old/Authen-SASL-2.1401/lib/Authen/SASL.pm 2010-03-29 21:22:22.000000000 +0200 +++ new/Authen-SASL-2.15/lib/Authen/SASL.pm 2010-06-02 20:46:52.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw($VERSION @Plugins); use Carp; -$VERSION = "2.1401"; +$VERSION = "2.15"; @Plugins = qw( Authen::SASL::XS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Authen-SASL-2.1401/t/server/login.t new/Authen-SASL-2.15/t/server/login.t --- old/Authen-SASL-2.1401/t/server/login.t 2010-03-11 16:10:46.000000000 +0100 +++ new/Authen-SASL-2.15/t/server/login.t 2010-06-02 20:45:18.000000000 +0200 @@ -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"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Authen-SASL-2.1401/t/server/plain.t new/Authen-SASL-2.15/t/server/plain.t --- old/Authen-SASL-2.1401/t/server/plain.t 2010-03-11 16:10:46.000000000 +0100 +++ new/Authen-SASL-2.15/t/server/plain.t 2010-06-02 20:45:18.000000000 +0200 @@ -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"; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
