perl-CGI-FormMagick/sme8/perl-CGI-FormMagick-0.92-persistent10.patch2

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-24 19:16:21.000000000 -0500
+++ mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick.pm    2007-11-24 19:15:53.000000000 -0500
@@ -23,6 +23,7 @@
 use CGI::FormMagick::Events;
 use CGI::FormMagick::Utils;
 use CGI::FormMagick::Sub;
+use File::Basename;
 
 use strict;
 use Carp;
@@ -1015,7 +1016,7 @@
     my $fm = shift;
     my $cgi = $fm->{cgi};
 
-    my $fn = $cgi->param('.id');
+    my $fn = 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-24 19:16:21.000000000 -0500
3	+++ mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick.pm 2007-11-24 19:15:53.000000000 -0500
4	@@ -23,6 +23,7 @@
5	use CGI::FormMagick::Events;
6	use CGI::FormMagick::Utils;
7	use CGI::FormMagick::Sub;
8	+use File::Basename;
9
10	use strict;
11	use Carp;
12	@@ -1015,7 +1016,7 @@
13	my $fm = shift;
14	my $cgi = $fm->{cgi};
15
16	- my $fn = $cgi->param('.id');
17	+ my $fn = fileparse($cgi->param('.id'));
18	my $po = new Persistence::Object::Simple __Fn => $fn;
19
20	my @names = $cgi->param ();