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	slords	1.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 ();