perl-CGI-Persistent/sme8/perl-CGI-Persistent-0.22.patch.2004111101

--- lib/CGI/Persistent.pm.orig  Thu Nov 11 15:07:53 2004
+++ lib/CGI/Persistent.pm       Thu Nov 11 15:07:56 2004
@@ -22,7 +22,7 @@
     my ( $class, $dope, $id ) = @_ ; 
     $dope = "." unless $dope; 
     my $cgi = new CGI; # print $cgi->header ();
-    my $fn  = basename($cgi->param( '.id' ) || $id); 
+    my $fn  = basename($cgi->param( '.id' ) || $id || ''); 
 
     unless ( $fn ) { 
         my $po = new Persistence::Object::Simple ( __Dope => $dope ); 
1	--- lib/CGI/Persistent.pm.orig Thu Nov 11 15:07:53 2004
2	+++ lib/CGI/Persistent.pm Thu Nov 11 15:07:56 2004
3	@@ -22,7 +22,7 @@
4	my ( $class, $dope, $id ) = @_ ;
5	$dope = "." unless $dope;
6	my $cgi = new CGI; # print $cgi->header ();
7	- my $fn = basename($cgi->param( '.id' ) \|\| $id);
8	+ my $fn = basename($cgi->param( '.id' ) \|\| $id \|\| '');
9
10	unless ( $fn ) {
11	my $po = new Persistence::Object::Simple ( __Dope => $dope );