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	slords	1.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