Hello community, here is the log from the commit of package perl-Apache-Session checked in at Wed Jul 12 08:59:03 CEST 2006. -------- --- perl-Apache-Session/perl-Apache-Session.changes 2006-01-25 21:39:27.000000000 +0100 +++ perl-Apache-Session/perl-Apache-Session.changes 2006-07-11 16:54:51.000000000 +0200 @@ -1,0 +2,6 @@ +Tue Jul 11 16:54:49 CEST 2006 - anicka@suse.cz + +- update to 1.81 +- minor release + +------------------------------------------------------------------- Old: ---- Apache-Session-1.80.tar.bz2 New: ---- Apache-Session-1.81.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Apache-Session.spec ++++++ --- /var/tmp/diff_new_pack.WNBsva/_old 2006-07-12 08:58:27.000000000 +0200 +++ /var/tmp/diff_new_pack.WNBsva/_new 2006-07-12 08:58:27.000000000 +0200 @@ -1,18 +1,18 @@ # -# spec file for package perl-Apache-Session (Version 1.80) +# spec file for package perl-Apache-Session (Version 1.81) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine # package are under the same license as the package itself. # -# Please submit bugfixes or comments via http://bugs.opensuse.org +# Please submit bugfixes or comments via http://bugs.opensuse.org/ # # norootforbuild Name: perl-Apache-Session BuildRequires: apache2-devel apache2-mod_perl libapr-util1-devel pcre-devel perl-DBI -Version: 1.80 +Version: 1.81 Release: 1 Provides: Apache-Session Requires: apache2 @@ -65,6 +65,9 @@ /var/adm/perl-modules/%{name} %changelog -n perl-Apache-Session +* Tue Jul 11 2006 - anicka@suse.cz +- update to 1.81 +- minor release * Wed Jan 25 2006 - mls@suse.de - converted neededforbuild to BuildRequires * Tue Jan 10 2006 - anicka@suse.cz ++++++ Apache-Session-1.80.tar.bz2 -> Apache-Session-1.81.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Apache-Session-1.80/CHANGES new/Apache-Session-1.81/CHANGES --- old/Apache-Session-1.80/CHANGES 2005-10-07 00:10:49.000000000 +0200 +++ new/Apache-Session-1.81/CHANGES 2006-05-23 18:01:15.000000000 +0200 @@ -1,3 +1,8 @@ +1.81 2006-05-23 + + - Don't unconditionally try to require packages in Apache::Session::Flex + (Dave Rolsky). + 1.8 2005-10-06 - Bug fix to stop death in Apache::Session::Lock::Semaphore. diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Apache-Session-1.80/META.yml new/Apache-Session-1.81/META.yml --- old/Apache-Session-1.80/META.yml 2005-10-07 00:15:35.000000000 +0200 +++ new/Apache-Session-1.81/META.yml 2006-05-23 18:01:28.000000000 +0200 @@ -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: Apache-Session -version: 1.80 +version: 1.81 version_from: Session.pm installdirs: site requires: diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Apache-Session-1.80/Session/Flex.pm new/Apache-Session-1.81/Session/Flex.pm --- old/Apache-Session-1.80/Session/Flex.pm 2001-10-11 19:31:39.000000000 +0200 +++ new/Apache-Session-1.81/Session/Flex.pm 2006-05-23 17:54:25.000000000 +0200 @@ -10,13 +10,11 @@ package Apache::Session::Flex; use strict; -use vars qw(@ISA $VERSION $incl); +use vars qw(@ISA $VERSION); $VERSION = '1.01'; @ISA = qw(Apache::Session); -$incl = {}; - use Apache::Session; sub populate { @@ -27,34 +25,29 @@ my $gen = "Apache::Session::Generate::$self->{args}->{Generate}"; my $ser = "Apache::Session::Serialize::$self->{args}->{Serialize}"; - if (!exists $incl->{$store}) { - eval "require $store" || die $@; - $incl->{$store} = 1; - } - - if (!exists $incl->{$lock}) { - eval "require $lock" || die $@; - $incl->{$lock} = 1; + for my $class ($store, $lock) { + unless ($class->can('new')) { + eval "require $class" || die $@; + } } - - if (!exists $incl->{$gen}) { + + unless ($gen->can('validate')) { eval "require $gen" || die $@; - eval '$incl->{$gen}->[0] = \&' . $gen . '::generate' || die $@; - eval '$incl->{$gen}->[1] = \&' . $gen . '::validate' || die $@; } - - if (!exists $incl->{$ser}) { + + unless ($ser->can('serialize')) { eval "require $ser" || die $@; - eval '$incl->{$ser}->[0] = \&' . $ser . '::serialize' || die $@; - eval '$incl->{$ser}->[1] = \&' . $ser . '::unserialize' || die $@; } - + $self->{object_store} = new $store $self; $self->{lock_manager} = new $lock $self; - $self->{generate} = $incl->{$gen}->[0]; - $self->{validate} = $incl->{$gen}->[1]; - $self->{serialize} = $incl->{$ser}->[0]; - $self->{unserialize} = $incl->{$ser}->[1]; + { + no strict 'refs'; + $self->{generate} = \&{$gen . '::generate'}; + $self->{validate} = \&{$gen . '::validate'}; + $self->{serialize} = \&{$ser . '::serialize'}; + $self->{unserialize} = \&{$ser . '::unserialize'}; + } return $self; } diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Apache-Session-1.80/Session.pm new/Apache-Session-1.81/Session.pm --- old/Apache-Session-1.80/Session.pm 2005-10-07 00:15:03.000000000 +0200 +++ new/Apache-Session-1.81/Session.pm 2006-05-23 17:58:00.000000000 +0200 @@ -312,7 +312,7 @@ use strict; use vars qw($VERSION); -$VERSION = '1.80'; +$VERSION = '1.81'; #State constants # diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Apache-Session-1.80/t/99flex.t new/Apache-Session-1.81/t/99flex.t --- old/Apache-Session-1.80/t/99flex.t 2004-08-18 22:12:34.000000000 +0200 +++ new/Apache-Session-1.81/t/99flex.t 2006-05-23 17:54:26.000000000 +0200 @@ -16,7 +16,7 @@ my $tempdir = tempdir( DIR => '.', CLEANUP => 1 ); chdir( $tempdir ); -plan tests => 11; +plan tests => 12; my $package = 'Apache::Session::Flex'; use_ok $package; @@ -49,4 +49,48 @@ is ref($session->{unserialize}), 'CODE', 'unserialize is CODE'; } +{ + { + package Apache::Session::Store::Test; + use base 'Apache::Session::Store::File'; + } + + { + package Apache::Session::Lock::Test; + use base 'Apache::Session::Lock::File'; + } + + { + package Apache::Session::Generate::Test; + + # This wack double assignment prevents "... used only once" + # warnings. + *Apache::Session::Generate::Test::generate = + *Apache::Session::Generate::Test::generate = + \&Apache::Session::Generate::MD5::generate; + *Apache::Session::Generate::Test::validate = + *Apache::Session::Generate::Test::validate = + \&Apache::Session::Generate::MD5::validate; + } + + { + package Apache::Session::Serialize::Test; + + *Apache::Session::Serialize::Test::serialize = + *Apache::Session::Serialize::Test::serialize = + \&Apache::Session::Serialize::Storable::serialize; + *Apache::Session::Serialize::Test::unserialize = + *Apache::Session::Serialize::Test::unserialize = + \&Apache::Session::Serialize::Storable::unserialize; + } + + my $session = tie my %session, $package, undef, { + Store => 'Test', + Lock => 'Test', + Generate => 'Test', + Serialize => 'Test', + }; + isa_ok $session->{object_store}, 'Apache::Session::Store::Test'; +} + chdir( $origdir ); ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit-unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit-help@opensuse.org