r25104 - in /branches/upstream/libcgi-session-perl/current: Changes META.yml lib/CGI/Session.pm

[rmayorga-guest at users.alioth.debian.org]

Author: rmayorga-guest
Date: Sun Sep 14 07:38:29 2008
New Revision: 25104

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

Modified:
    branches/upstream/libcgi-session-perl/current/Changes
    branches/upstream/libcgi-session-perl/current/META.yml
    branches/upstream/libcgi-session-perl/current/lib/CGI/Session.pm

Modified: branches/upstream/libcgi-session-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-session-perl/current/Changes?rev=25104&op=diff
==============================================================================
--- branches/upstream/libcgi-session-perl/current/Changes (original)
+++ branches/upstream/libcgi-session-perl/current/Changes Sun Sep 14 07:38:29 2008
@@ -1,5 +1,11 @@
 CGI::Session Change Log
 =====================================================================
+
+4.36 - Friday, September 12, 2008
+    * FIX: The sample code for find() had 2 errors in it:
+           o It assumed delete() returned a meaningful value, which it doesn't
+           o It did not follow the call to delete() with a (recommended) call to flush()
+           o Thanks to Mario Domgoergen for the report, RT#39201
 
 4.35 - Tuesday, July 15, 2008
     * FIX: Fix the bug fix for error propagation from 4.34, RT#37628
@@ -372,4 +378,4 @@
     * Bug in POD documentation is fixed (thanks to Graham Barr)
 
 
-$Id: Changes 429 2008-07-15 00:27:52Z markstos $
+$Id: Changes 431 2008-09-12 07:58:26Z ron $

Modified: branches/upstream/libcgi-session-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-session-perl/current/META.yml?rev=25104&op=diff
==============================================================================
--- branches/upstream/libcgi-session-perl/current/META.yml (original)
+++ branches/upstream/libcgi-session-perl/current/META.yml Sun Sep 14 07:38:29 2008
@@ -1,6 +1,6 @@
 ---
 name: CGI-Session
-version: 4.35
+version: 4.36
 author:
   - 'Sherzod Ruzmetov <sherzodr at cpan.org>'
 abstract: Persistent session data in CGI applications
@@ -17,7 +17,7 @@
 provides:
   CGI::Session:
     file: lib/CGI/Session.pm
-    version: 4.35
+    version: 4.36
   CGI::Session::Driver:
     file: lib/CGI/Session/Driver.pm
     version: 4.33

Modified: branches/upstream/libcgi-session-perl/current/lib/CGI/Session.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-session-perl/current/lib/CGI/Session.pm?rev=25104&op=diff
==============================================================================
--- branches/upstream/libcgi-session-perl/current/lib/CGI/Session.pm (original)
+++ branches/upstream/libcgi-session-perl/current/lib/CGI/Session.pm Sun Sep 14 07:38:29 2008
@@ -1,13 +1,13 @@
 package CGI::Session;
 
-# $Id: Session.pm 430 2008-07-16 00:36:15Z markstos $
+# $Id: Session.pm 431 2008-09-12 07:58:26Z ron $
 
 use strict;
 use Carp;
 use CGI::Session::ErrorHandler;
 
 @CGI::Session::ISA      = qw( CGI::Session::ErrorHandler );
-$CGI::Session::VERSION  = '4.35';
+$CGI::Session::VERSION  = '4.36';
 $CGI::Session::NAME     = 'CGISESSID';
 $CGI::Session::IP_MATCH = 0;
 
@@ -452,7 +452,7 @@
     return 1;
 }
 
-# $Id: Session.pm 430 2008-07-16 00:36:15Z markstos $
+# $Id: Session.pm 431 2008-09-12 07:58:26Z ron $
 
 =pod
 
@@ -1186,7 +1186,8 @@
         my ($session) = @_;
         next if $session->is_empty;    # <-- already expired?!
         if ( ($session->ctime + 3600*240) <= time() ) {
-            $session->delete() or warn "couldn't remove " . $session->id . ": " . $session->errstr;
+            $session->delete();
+            $session->flush(); # Recommended practice says use flush() after delete().
         }
     }