r11599 - in /branches/upstream/libapache-session-perl/current: ./ Session/Lock/ t/

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Tue Dec 25 21:56:54 UTC 2007


Author: gregoa-guest
Date: Tue Dec 25 21:56:53 2007
New Revision: 11599

URL: http://svn.debian.org/wsvn/?sc=1&rev=11599
Log:
[svn-upgrade] Integrating new upstream version, libapache-session-perl (1.85)

Added:
    branches/upstream/libapache-session-perl/current/t/pod.t
Modified:
    branches/upstream/libapache-session-perl/current/CHANGES
    branches/upstream/libapache-session-perl/current/MANIFEST
    branches/upstream/libapache-session-perl/current/META.yml
    branches/upstream/libapache-session-perl/current/Makefile.PL
    branches/upstream/libapache-session-perl/current/Session.pm
    branches/upstream/libapache-session-perl/current/Session/Lock/Semaphore.pm
    branches/upstream/libapache-session-perl/current/t/99dbfilestore.t
    branches/upstream/libapache-session-perl/current/t/99filelock.t
    branches/upstream/libapache-session-perl/current/t/99filestore.t
    branches/upstream/libapache-session-perl/current/t/99flex.t
    branches/upstream/libapache-session-perl/current/t/99md5gen.t
    branches/upstream/libapache-session-perl/current/t/99moduniqgen.t
    branches/upstream/libapache-session-perl/current/t/99mysqllock.t
    branches/upstream/libapache-session-perl/current/t/99mysqlstore.t
    branches/upstream/libapache-session-perl/current/t/99nulllock.t
    branches/upstream/libapache-session-perl/current/t/99semaphore.t

Modified: branches/upstream/libapache-session-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/CHANGES?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/CHANGES (original)
+++ branches/upstream/libapache-session-perl/current/CHANGES Tue Dec 25 21:56:53 2007
@@ -1,11 +1,27 @@
+In some distant future Apache::Session may require perl 5.6.
+If you use perl older than 5.6 - write to alexchorny[AT]gmail.com
+and tell me what version do you use, why and will you need newer versions
+of Apache::Session.
+
+1.85   2007-12-20 by Alexandr Ciornii, Perl 20th birthday version
+  - mention Catalyst::Plugin::Session, Session
+
+1.84_01   2007-11-26 by Alexandr Ciornii (alexchorny AT gmail.com)
+  - Added Apache::Session::Lock::Semaphore::remove to remove semaphore
+  - 99flex.t will remove semaphore (RT#30440)
+  - 99flex.t should work on 5.6.1 again (no chdir now)
+  - 99flex.t will clean all temporary files (RT#30209)
+  - pod.t included in MANIFEST
+  - cleaner tests
+
 1.84   2007-10-02 by Alexandr Ciornii (alexchorny AT gmail.com)
   - Added constant.pm to the list of prerequisites
   - Jeffrey W. Baker, Casey West, Alexandr Ciornii, Oliver Maul agreed to
     change license of all files to Perl license
     Alexandr Ciornii agrees to relicense to Artistic 2.0 in future if needed.
-  - 99flex.t will be skipped on *bsd or Solaris
+  - 99flex.t will be skipped on *bsd and Solaris
 
-1.83_01   2007-08-03 by Alexandr Ciornii (alexchorny AT gmail.com)
+1.83_01   2007-08-03 by Alexandr Ciornii
   - better handling of Storable errors by Rick Delaney (RT#27476)
 
 1.83=1.82_05  2007-05-25

Modified: branches/upstream/libapache-session-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/MANIFEST?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/MANIFEST (original)
+++ branches/upstream/libapache-session-perl/current/MANIFEST Tue Dec 25 21:56:53 2007
@@ -61,4 +61,5 @@
 t/99semaphore.t
 t/99storable.t
 t/99uue.t
+t/pod.t
 TODO

Modified: branches/upstream/libapache-session-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/META.yml?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/META.yml (original)
+++ branches/upstream/libapache-session-perl/current/META.yml Tue Dec 25 21:56:53 2007
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Apache-Session
-version:             1.84
+version:             1.85
 abstract:            A persistence framework for session data
 license:             perl
 generated_by:        ExtUtils::MakeMaker version 6.32

Modified: branches/upstream/libapache-session-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/Makefile.PL?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/Makefile.PL (original)
+++ branches/upstream/libapache-session-perl/current/Makefile.PL Tue Dec 25 21:56:53 2007
@@ -7,12 +7,15 @@
 Please use Test::Reporter to report test results - it's the only way to measure
 popularity of distribution.
 
+If you use perl older than 5.6 - write to alexchorny[AT]gmail.com
+and tell me what version do you use, and why.
+
 EOT
 
 WriteMakefile(
     NAME         => "Apache::Session",
     VERSION_FROM => "Session.pm",
-    ($ExtUtils::MakeMaker::VERSION ge '6.30_00'? 
+    ($ExtUtils::MakeMaker::VERSION gt '6.30'? 
      ('LICENSE'		=> 'perl', ) : ()),
     PREREQ_PM    => {
                      'Test::More'      => '0.47',
@@ -21,9 +24,9 @@
                      'File::Temp'      => 0, #core from 5.6.1
                      'Storable'        => '0.6', #Will be raised later
                      'constant'        => 0, #Available on CPAN now
-#                     'MIME::Base64'    => 0, #test
+#                     'MIME::Base64'    => 0, #new versions require 5.6
 #                     'DB_File'         => 0, #test
-#                     'Digest::MD5'     => 0, #test
+#                     'Digest::MD5'     => 0, #new versions requires 5.6
                     },
     AUTHOR          => 'Casey West <casey[at]geeknest.com>',
     ABSTRACT        => 'A persistence framework for session data',

Modified: branches/upstream/libapache-session-perl/current/Session.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/Session.pm?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/Session.pm (original)
+++ branches/upstream/libapache-session-perl/current/Session.pm Tue Dec 25 21:56:53 2007
@@ -252,6 +252,10 @@
 CGI::Session uses OO interface to do same thing. It is better maintained,
 but less possibilies.
 
+Catalyst::Plugin::Session - support of sessions in Catalyst
+
+Session - OO interface to Apache::Session
+
 =head1 AUTHORS
 
 Jeffrey Baker <jwbaker at acm.org> is the author of 
@@ -315,7 +319,7 @@
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '1.84';
+$VERSION = '1.85';
 $VERSION = eval $VERSION;
 
 #State constants

Modified: branches/upstream/libapache-session-perl/current/Session/Lock/Semaphore.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/Session/Lock/Semaphore.pm?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/Session/Lock/Semaphore.pm (original)
+++ branches/upstream/libapache-session-perl/current/Session/Lock/Semaphore.pm Tue Dec 25 21:56:53 2007
@@ -15,7 +15,7 @@
 use IPC::Semaphore;
 use vars qw($VERSION);
 
-$VERSION = '1.02';
+$VERSION = '1.02_01';
 
 BEGIN {
 
@@ -175,6 +175,13 @@
 
 }
 
+sub remove {
+    my $self    = shift;
+    if ($self->{sem}) {    
+        $self->{sem}->remove();
+    }
+}
+
 1;
 
 

Modified: branches/upstream/libapache-session-perl/current/t/99dbfilestore.t
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/t/99dbfilestore.t?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/t/99dbfilestore.t (original)
+++ branches/upstream/libapache-session-perl/current/t/99dbfilestore.t Tue Dec 25 21:56:53 2007
@@ -1,5 +1,4 @@
 use Test::More;
-use Test::Deep;
 use Test::Exception;
 use File::Temp qw[tempdir];
 use Cwd qw[getcwd];

Modified: branches/upstream/libapache-session-perl/current/t/99filelock.t
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/t/99filelock.t?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/t/99filelock.t (original)
+++ branches/upstream/libapache-session-perl/current/t/99filelock.t Tue Dec 25 21:56:53 2007
@@ -1,5 +1,4 @@
 use Test::More;
-use Test::Deep;
 use Test::Exception;
 use File::Temp qw[tempdir];
 use Cwd qw[getcwd];

Modified: branches/upstream/libapache-session-perl/current/t/99filestore.t
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/t/99filestore.t?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/t/99filestore.t (original)
+++ branches/upstream/libapache-session-perl/current/t/99filestore.t Tue Dec 25 21:56:53 2007
@@ -1,5 +1,4 @@
 use Test::More;
-use Test::Deep;
 use Test::Exception;
 use File::Temp qw[tempdir];
 use Cwd qw[getcwd];

Modified: branches/upstream/libapache-session-perl/current/t/99flex.t
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/t/99flex.t?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/t/99flex.t (original)
+++ branches/upstream/libapache-session-perl/current/t/99flex.t Tue Dec 25 21:56:53 2007
@@ -1,16 +1,15 @@
 use strict;
 use Test::More;
-use Test::Deep;
-use Test::Exception;
+#use Test::Exception;
 use File::Temp qw[tempdir];
 use Cwd qw[getcwd];
 use Config;
 
-plan skip_all => "Only for perl 5.8.0 or later"
-  unless eval {
-   require 5.8.0;
+#plan skip_all => "Only for perl 5.8 or later"
+#  unless eval {
+#   require 5.008;
    #perl 5.6 does not likes this test. See RT#16539.
-  };
+#  };
 #use Module::Mask;my $mask = new Module::Mask ('Storable');
 plan skip_all => "Optional modules (Fcntl, Digest::MD5) not installed"
   unless eval {
@@ -25,8 +24,8 @@
 
 #$Apache::Session::Lock::File::LockDirectory=$tempdir;
 my $tempdir = tempdir( DIR => '.', CLEANUP => 1 );
-my $origdir = getcwd;
-chdir( $tempdir );
+#my $origdir = getcwd;
+#chdir( $tempdir );
 
 {
     my $session = tie my %session, $package, undef, {
@@ -34,14 +33,16 @@
         Lock      => 'File',
         Generate  => 'MD5',
         Serialize => 'Storable',
-#        Directory     => $tempdir,
-#        LockDirectory => $tempdir,
+        Directory     => $tempdir,
+        LockDirectory => $tempdir,
     };
     isa_ok $session->{object_store}, 'Apache::Session::Store::File';
     isa_ok $session->{lock_manager}, 'Apache::Session::Lock::File';
     is ref($session->{generate}),    'CODE', 'generate is CODE';
     is ref($session->{serialize}),   'CODE', 'serialize is CODE';
     is ref($session->{unserialize}), 'CODE', 'unserialize is CODE';
+    tied(%session)->delete;
+    #untie %session;
 }
 
 SKIP: { #Flex that uses IPC
@@ -75,6 +76,7 @@
     is ref($session->{generate}),    'CODE', 'generate is CODE';
     is ref($session->{serialize}),   'CODE', 'serialize is CODE';
     is ref($session->{unserialize}), 'CODE', 'unserialize is CODE';
+    $session->{lock_manager}->remove();
 }
 
 {
@@ -117,8 +119,12 @@
         Lock      => 'Test',
         Generate  => 'Test',
         Serialize => 'Test',
+        Directory     => $tempdir,
+        LockDirectory => $tempdir,
     };
     isa_ok $session->{object_store}, 'Apache::Session::Store::Test';
+    tied(%session)->delete;
+    $session->{lock_manager}->clean('.', 0);
 }
 
-chdir( $origdir );
+#chdir( $origdir );

Modified: branches/upstream/libapache-session-perl/current/t/99md5gen.t
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/t/99md5gen.t?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/t/99md5gen.t (original)
+++ branches/upstream/libapache-session-perl/current/t/99md5gen.t Tue Dec 25 21:56:53 2007
@@ -1,5 +1,4 @@
 use Test::More;
-use Test::Deep;
 use Test::Exception;
 use File::Temp qw[tempdir];
 use Cwd qw[getcwd];

Modified: branches/upstream/libapache-session-perl/current/t/99moduniqgen.t
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/t/99moduniqgen.t?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/t/99moduniqgen.t (original)
+++ branches/upstream/libapache-session-perl/current/t/99moduniqgen.t Tue Dec 25 21:56:53 2007
@@ -1,5 +1,4 @@
 use Test::More;
-use Test::Deep;
 use Test::Exception;
 use File::Temp qw[tempdir];
 use Cwd qw[getcwd];
@@ -9,9 +8,9 @@
 my $package = 'Apache::Session::Generate::ModUniqueId';
 use_ok $package;
 
-my $origdir = getcwd;
-my $tempdir = tempdir( DIR => '.', CLEANUP => 1 );
-chdir( $tempdir );
+#my $origdir = getcwd;
+#my $tempdir = tempdir( DIR => '.', CLEANUP => 1 );
+#chdir( $tempdir );
 
 $ENV{UNIQUE_ID} = '12345678790abcdef';
 
@@ -26,4 +25,4 @@
 is $session->{data}->{_session_id}, $ENV{UNIQUE_ID},
    'id matches UNIQUE_ID env param';
 
-chdir( $origdir );
+#chdir( $origdir );

Modified: branches/upstream/libapache-session-perl/current/t/99mysqllock.t
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/t/99mysqllock.t?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/t/99mysqllock.t (original)
+++ branches/upstream/libapache-session-perl/current/t/99mysqllock.t Tue Dec 25 21:56:53 2007
@@ -1,8 +1,7 @@
 use Test::More;
-use Test::Deep;
-use Test::Exception;
+#use Test::Exception;
 use File::Temp qw[tempdir];
-use Cwd qw[getcwd];
+#use Cwd qw[getcwd];
 
 plan skip_all => "Not running RDBM tests without APACHE_SESSION_MAINTAINER=1"
   unless $ENV{APACHE_SESSION_MAINTAINER};

Modified: branches/upstream/libapache-session-perl/current/t/99mysqlstore.t
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/t/99mysqlstore.t?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/t/99mysqlstore.t (original)
+++ branches/upstream/libapache-session-perl/current/t/99mysqlstore.t Tue Dec 25 21:56:53 2007
@@ -1,5 +1,4 @@
 use Test::More;
-use Test::Deep;
 use Test::Exception;
 use File::Temp qw[tempdir];
 use Cwd qw[getcwd];

Modified: branches/upstream/libapache-session-perl/current/t/99nulllock.t
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/t/99nulllock.t?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/t/99nulllock.t (original)
+++ branches/upstream/libapache-session-perl/current/t/99nulllock.t Tue Dec 25 21:56:53 2007
@@ -1,6 +1,4 @@
 use Test::More;
-use Test::Deep;
-use Test::Exception;
 use File::Temp qw[tempdir];
 use Cwd qw[getcwd];
 

Modified: branches/upstream/libapache-session-perl/current/t/99semaphore.t
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/t/99semaphore.t?rev=11599&op=diff
==============================================================================
--- branches/upstream/libapache-session-perl/current/t/99semaphore.t (original)
+++ branches/upstream/libapache-session-perl/current/t/99semaphore.t Tue Dec 25 21:56:53 2007
@@ -1,5 +1,4 @@
 use Test::More;
-use Test::Deep;
 use Test::Exception;
 use File::Temp qw[tempdir];
 use Cwd qw[getcwd];

Added: branches/upstream/libapache-session-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/branches/upstream/libapache-session-perl/current/t/pod.t?rev=11599&op=file
==============================================================================
--- branches/upstream/libapache-session-perl/current/t/pod.t (added)
+++ branches/upstream/libapache-session-perl/current/t/pod.t Tue Dec 25 21:56:53 2007
@@ -1,0 +1,6 @@
+#!perl -T
+
+use Test::More;
+eval "use Test::Pod 1.14";
+plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+all_pod_files_ok();




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