perl-CGI-Persistent/sme7/perl-CGI-Persistent-0.22.patch.2002090400

--- CGI-Persistent-0.22/lib/CGI/Persistent.pm.orig      Mon Sep 27 12:58:32 2004
+++ CGI-Persistent-0.22/lib/CGI/Persistent.pm   Mon Sep 27 12:58:32 2004
@@ -22,7 +22,6 @@
     my ( $class, $dope, $id ) = @_ ; 
     $dope = "." unless $dope; 
     my $cgi = new CGI; # print $cgi->header ();
-    $cgi->{sessiondir} = dirname($id) if $id;
     my $fn  = basename($cgi->param( '.id' ) || $id); 
 
     unless ( $fn ) { 
@@ -32,8 +31,9 @@
     }
 
     my $po = new Persistence::Object::Simple __Fn =>
-       join "/", ($cgi->{sessiondir},$fn); 
+       join "/", ($dope,$fn); 
     $po->{ __DOPE } = undef; 
+    $po->{sessiondir} = $dope;
     my @names = $cgi->param (); 
 
     my $st = $cgi->param('.sailthru'); 
@@ -43,9 +43,11 @@
 
     foreach $key ( keys %$po ) { 
         $cgi->param( -name => $key, -values => $po->{$key} )
-        unless ( grep /$key/, @names ) || $key eq "__Fn"
+        unless ( grep /$key/, @names ) || $key eq "__Fn";
     }
 
+    $cgi->{sessiondir} = $po->{sessiondir};
+
     $po->commit ();
     return bless $cgi, $class; 
 
1	slords	1.1	--- CGI-Persistent-0.22/lib/CGI/Persistent.pm.orig Mon Sep 27 12:58:32 2004
2			+++ CGI-Persistent-0.22/lib/CGI/Persistent.pm Mon Sep 27 12:58:32 2004
3			@@ -22,7 +22,6 @@
4			my ( $class, $dope, $id ) = @_ ;
5			$dope = "." unless $dope;
6			my $cgi = new CGI; # print $cgi->header ();
7			- $cgi->{sessiondir} = dirname($id) if $id;
8			my $fn = basename($cgi->param( '.id' ) \|\| $id);
9
10			unless ( $fn ) {
11			@@ -32,8 +31,9 @@
12			}
13
14			my $po = new Persistence::Object::Simple __Fn =>
15			- join "/", ($cgi->{sessiondir},$fn);
16			+ join "/", ($dope,$fn);
17			$po->{ __DOPE } = undef;
18			+ $po->{sessiondir} = $dope;
19			my @names = $cgi->param ();
20
21			my $st = $cgi->param('.sailthru');
22			@@ -43,9 +43,11 @@
23
24			foreach $key ( keys %$po ) {
25			$cgi->param( -name => $key, -values => $po->{$key} )
26			- unless ( grep /$key/, @names ) \|\| $key eq "__Fn"
27			+ unless ( grep /$key/, @names ) \|\| $key eq "__Fn";
28			}
29
30			+ $cgi->{sessiondir} = $po->{sessiondir};
31			+
32			$po->commit ();
33			return bless $cgi, $class;
34