22 lines
981 B
Diff
22 lines
981 B
Diff
diff -Nur CGI-Persistent-1.11.old/lib/CGI/Persistent.pm CGI-Persistent-1.11/lib/CGI/Persistent.pm
|
|
--- CGI-Persistent-1.11.old/lib/CGI/Persistent.pm 2008-07-05 15:21:00.000000000 -0400
|
|
+++ CGI-Persistent-1.11/lib/CGI/Persistent.pm 2025-01-15 22:47:47.621534307 -0500
|
|
@@ -64,7 +64,7 @@
|
|
sub delete {
|
|
|
|
my ( $self, $param ) = @_;
|
|
- my $fn = join "/", ($self->{sessiondir},$self->param( '.id' ));
|
|
+ my $fn = join "/", ($self->{sessiondir},scalar $self->param( '.id' ));
|
|
my $po = new Persistence::Object::Simple __Fn => $fn;
|
|
delete $po->{ $param }; $po->commit ();
|
|
$self->SUPER::delete ( $param ); # delete, is like, overloaded.
|
|
@@ -74,7 +74,7 @@
|
|
sub delete_all {
|
|
|
|
my ( $self ) = shift;
|
|
- $fn = join "/", ($self->{sessiondir},$self->param( '.id' ));
|
|
+ $fn = join "/", ($self->{sessiondir},scalar $self->param( '.id' ));
|
|
my $po = new Persistence::Object::Simple __Fn => $fn;
|
|
$po->expire;
|
|
$self->SUPER::delete_all ();
|