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	slords	1.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 );