Parent Directory
| 
Revision Log
| 
Revision Graph
Import on branch sme7 of package perl-CGI-Persistent-1.00-2.0.1.el4.sme.src.rpm
| 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 ); |
| admin@koozali.org | ViewVC Help |
| Powered by ViewVC 1.2.1 |  |