perl-CGI-FormMagick/sme7/perl-CGI-FormMagick-0.92-quotemeta.patch

diff -Nur -x '*.orig' -x '*.rej' perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm
--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm 2005-10-31 12:24:02.000000000 -0500
+++ mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm       2006-05-01 13:00:56.000000000 -0400
@@ -455,10 +455,12 @@
     # nasty hack required here to select the desired value if it's preset
         if (ref($value) eq 'ARRAY') {
             foreach (@$value) {
+               $_ = quotemeta;
                 $inputfield =~ s/(<OPTION VALUE="$_")/$1 SELECTED/;
             }
         } else {
             foreach (split /\s*[;,]\s*/, $value) {
+               $_ = quotemeta;
                 $inputfield =~ s/(<OPTION VALUE="$_")/$1 SELECTED/;
             }
         }
@@ -472,7 +474,8 @@
             text  => \@labels
         );
     # nasty hack required here to select the desired value if it's preset
-        $inputfield =~ s/(VALUE="$info->{value}")/$1 CHECKED/;
+       my $value = quotemeta $info->{value};
+        $inputfield =~ s/(VALUE="$value")/$1 CHECKED/;
 
     } elsif ($info->{type} eq "checkbox") {
 
1	diff -Nur -x '.orig' -x '.rej' perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm
2	--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm 2005-10-31 12:24:02.000000000 -0500
3	+++ mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm 2006-05-01 13:00:56.000000000 -0400
4	@@ -455,10 +455,12 @@
5	# nasty hack required here to select the desired value if it's preset
6	if (ref($value) eq 'ARRAY') {
7	foreach (@$value) {
8	+ $_ = quotemeta;
9	$inputfield =~ s/(<OPTION VALUE="$_")/$1 SELECTED/;
10	}
11	} else {
12	foreach (split /\s[;,]\s/, $value) {
13	+ $_ = quotemeta;
14	$inputfield =~ s/(<OPTION VALUE="$_")/$1 SELECTED/;
15	}
16	}
17	@@ -472,7 +474,8 @@
18	text => \@labels
19	);
20	# nasty hack required here to select the desired value if it's preset
21	- $inputfield =~ s/(VALUE="$info->{value}")/$1 CHECKED/;
22	+ my $value = quotemeta $info->{value};
23	+ $inputfield =~ s/(VALUE="$value")/$1 CHECKED/;
24
25	} elsif ($info->{type} eq "checkbox") {
26