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 (); |