22 lines
805 B
Diff
22 lines
805 B
Diff
|
diff -Nur perl-CGI-FormMagick-0.93.old/lib/CGI/FormMagick.pm perl-CGI-FormMagick-0.93/lib/CGI/FormMagick.pm
|
||
|
|
--- perl-CGI-FormMagick-0.93.old/lib/CGI/FormMagick.pm 2013-01-25 12:31:36.000000000 -0500
|
||
|
|
+++ perl-CGI-FormMagick-0.93/lib/CGI/FormMagick.pm 2025-01-15 22:08:49.443102653 -0500
|
||
|
|
@@ -467,7 +467,7 @@
|
||
|
|
$self->cgi->delete('wherenext');
|
||
|
|
}
|
||
|
|
}
|
||
|
|
- return $self->cgi->param('wherenext');
|
||
|
|
+ return scalar $self->cgi->param('wherenext');
|
||
|
|
}
|
||
|
|
|
||
|
|
=head2 $fm->go_to_finish()
|
||
|
|
@@ -1017,7 +1017,7 @@
|
||
|
|
my $fm = shift;
|
||
|
|
my $cgi = $fm->{cgi};
|
||
|
|
|
||
|
|
- my $fn = $fm->{sessiondir}.'/'.fileparse($cgi->param('.id'));
|
||
|
|
+ my $fn = $fm->{sessiondir}.'/'.fileparse(scalar $cgi->param('.id'));
|
||
|
|
my $po = new Persistence::Object::Simple __Fn => $fn;
|
||
|
|
|
||
|
|
my @names = $cgi->param ();
|