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") {