perl-CGI-FormMagick/sme7/perl-CGI-FormMagick-0.92-persistent10.patch3

diff -Nur -x '*.orig' -x '*.rej' perl-CGI-FormMagick-0.92/lib/CGI/FormMagick.pm mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick.pm
--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick.pm      2007-11-25 12:14:25.000000000 -0700
+++ mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick.pm    2007-11-25 12:14:11.000000000 -0700
@@ -1016,7 +1016,7 @@
     my $fm = shift;
     my $cgi = $fm->{cgi};
 
-    my $fn = fileparse($cgi->param('.id'));
+    my $fn = $fm->{sessiondir}.'/'.fileparse($cgi->param('.id'));
     my $po = new Persistence::Object::Simple __Fn => $fn;
 
     my @names = $cgi->param ();
1	diff -Nur -x '.orig' -x '.rej' perl-CGI-FormMagick-0.92/lib/CGI/FormMagick.pm mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick.pm
2	--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick.pm 2007-11-25 12:14:25.000000000 -0700
3	+++ mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick.pm 2007-11-25 12:14:11.000000000 -0700
4	@@ -1016,7 +1016,7 @@
5	my $fm = shift;
6	my $cgi = $fm->{cgi};
7
8	- my $fn = fileparse($cgi->param('.id'));
9	+ my $fn = $fm->{sessiondir}.'/'.fileparse($cgi->param('.id'));
10	my $po = new Persistence::Object::Simple __Fn => $fn;
11
12	my @names = $cgi->param ();