r32393 - in /trunk/libcgi-session-perl: Changes META.yml debian/changelog lib/CGI/Session.pm lib/CGI/Session/Driver/sqlite.pm
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sun Mar 29 16:15:01 UTC 2009
Author: gregoa
Date: Sun Mar 29 16:14:55 2009
New Revision: 32393
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32393
Log:
New upstream release.
Modified:
trunk/libcgi-session-perl/Changes
trunk/libcgi-session-perl/META.yml
trunk/libcgi-session-perl/debian/changelog
trunk/libcgi-session-perl/lib/CGI/Session.pm
trunk/libcgi-session-perl/lib/CGI/Session/Driver/sqlite.pm
Modified: trunk/libcgi-session-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-session-perl/Changes?rev=32393&op=diff
==============================================================================
--- trunk/libcgi-session-perl/Changes (original)
+++ trunk/libcgi-session-perl/Changes Sun Mar 29 16:14:55 2009
@@ -1,5 +1,10 @@
CGI::Session Change Log
=====================================================================
+
+4.41 - Friday, March 20, 2009
+ * FIX: RT#43290. In CGI::Session::Driver::sqlite, ensure database handle is still defined in DESTROY()
+ before calling ping(). For more detail see RT#35925 as discussed under V 4.31 below.
+ * DOCUMENTATION: Add comments about using the header() method to set the charset to 'utf-8'.
4.40 - Friday, January 2, 2009
No code changes.
@@ -417,4 +422,4 @@
* Bug in POD documentation is fixed (thanks to Graham Barr)
-$Id: Changes 456 2009-01-03 01:16:43Z markstos $
+$Id: Changes 459 2009-03-21 02:00:17Z markstos $
Modified: trunk/libcgi-session-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-session-perl/META.yml?rev=32393&op=diff
==============================================================================
--- trunk/libcgi-session-perl/META.yml (original)
+++ trunk/libcgi-session-perl/META.yml Sun Mar 29 16:14:55 2009
@@ -1,22 +1,15 @@
---- #YAML:1.0
-name: CGI-Session
-version: 4.40
-abstract: Persistent session data in CGI applications
-license: ~
-author:
- - Sherzod Ruzmetov <sherzodr at cpan.org>
-generated_by: ExtUtils::MakeMaker version 6.44
-distribution_type: module
-requires:
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: CGI-Session
+version: 4.41
+version_from: lib/CGI/Session.pm
+installdirs: site
+requires:
CGI: 3.26
Data::Dumper:
Digest::MD5:
Scalar::Util:
Test::More:
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
-no_index:
- package:
- - CGI::Session::Test::SimpleObjectClass
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30_01
Modified: trunk/libcgi-session-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-session-perl/debian/changelog?rev=32393&op=diff
==============================================================================
--- trunk/libcgi-session-perl/debian/changelog (original)
+++ trunk/libcgi-session-perl/debian/changelog Sun Mar 29 16:14:55 2009
@@ -1,3 +1,9 @@
+libcgi-session-perl (4.41-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Sun, 29 Mar 2009 18:14:17 +0200
+
libcgi-session-perl (4.40-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libcgi-session-perl/lib/CGI/Session.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-session-perl/lib/CGI/Session.pm?rev=32393&op=diff
==============================================================================
--- trunk/libcgi-session-perl/lib/CGI/Session.pm (original)
+++ trunk/libcgi-session-perl/lib/CGI/Session.pm Sun Mar 29 16:14:55 2009
@@ -1,13 +1,13 @@
package CGI::Session;
-# $Id: Session.pm 456 2009-01-03 01:16:43Z markstos $
+# $Id: Session.pm 459 2009-03-21 02:00:17Z markstos $
use strict;
use Carp;
use CGI::Session::ErrorHandler;
@CGI::Session::ISA = qw( CGI::Session::ErrorHandler );
-$CGI::Session::VERSION = '4.40';
+$CGI::Session::VERSION = '4.41';
$CGI::Session::NAME = 'CGISESSID';
$CGI::Session::IP_MATCH = 0;
@@ -455,7 +455,7 @@
return 1;
}
-# $Id: Session.pm 456 2009-01-03 01:16:43Z markstos $
+# $Id: Session.pm 459 2009-03-21 02:00:17Z markstos $
=pod
@@ -1190,10 +1190,11 @@
=head2 header()
-Replacement for L<CGI.pm|CGI>'s header() method. Without this method, you usually need to create a CGI::Cookie object and send it as part of the HTTP header:
+A wrapper for L<CGI.pm|CGI>'s header() method. Calling this method
+is equivalent to something like this:
$cookie = CGI::Cookie->new(-name=>$session->name, -value=>$session->id);
- print $cgi->header(-cookie=>$cookie);
+ print $cgi->header(-cookie=>$cookie, @_);
You can minimize the above into:
@@ -1202,9 +1203,10 @@
It will retrieve the name of the session cookie from C<$session->name()> which defaults to C<$CGI::Session::NAME>. If you want to use a different name for your session cookie, do something like following before creating session object:
CGI::Session->name("MY_SID");
- $session = new CGI::Session(undef, $cgi, \%attrs);
-
-Now, $session->header() uses "MY_SID" as a name for the session cookie.
+ $session = CGI::Session->new(undef, $cgi, \%attrs);
+
+Now, $session->header() uses "MY_SID" as a name for the session cookie. For all additional options that can
+be passed, see the C<header()> docs in L<CGI>.
=head2 query()
@@ -1346,6 +1348,13 @@
For details, see: http://rt.cpan.org/Public/Bug/Display.html?id=28516 (and ...id=21981).
+Lastly, note that parameters such as 'utf-8' can be passed to the C<header()> method
+when C<header()> is used to send a cookie. E.g.:
+
+ print $session->header(charset => 'utf-8');
+
+See L</header()> for a fuller discussion of the use of the C<header()> method in conjunction with cookies.
+
=head1 TRANSLATIONS
This document is also available in Japanese.
Modified: trunk/libcgi-session-perl/lib/CGI/Session/Driver/sqlite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-session-perl/lib/CGI/Session/Driver/sqlite.pm?rev=32393&op=diff
==============================================================================
--- trunk/libcgi-session-perl/lib/CGI/Session/Driver/sqlite.pm (original)
+++ trunk/libcgi-session-perl/lib/CGI/Session/Driver/sqlite.pm Sun Mar 29 16:14:55 2009
@@ -1,6 +1,6 @@
package CGI::Session::Driver::sqlite;
-# $Id: sqlite.pm 447 2008-11-01 03:46:08Z markstos $
+# $Id: sqlite.pm 459 2009-03-21 02:00:17Z markstos $
use strict;
@@ -9,7 +9,7 @@
use DBI qw(SQL_BLOB);
use Fcntl;
-$CGI::Session::Driver::sqlite::VERSION = '4.38';
+$CGI::Session::Driver::sqlite::VERSION = '4.41';
sub init {
my $self = shift;
@@ -50,7 +50,7 @@
sub DESTROY {
my $self = shift;
- unless ( $self->{Handle} -> ping ) {
+ unless ( defined( $self->{Handle} ) && $self->{Handle} -> ping ) {
$self->set_error(__PACKAGE__ . '::DESTROY(). Database handle has gone away');
return;
}
More information about the Pkg-perl-cvs-commits
mailing list