diff -Nur -x '*.orig' -x '*.rej' perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm
--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm	2005-10-31 12:24:02.000000000 -0500
+++ mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm	2006-01-13 16:27:40.000000000 -0500
@@ -201,7 +201,7 @@
     $_ = $data;
     if (not defined $_) {
         return "FM_PASSWORD1";
-    } elsif (/\d/ and /[A-Z]/ and /[a-z]/ and /\W/ and length($_) > 6) {
+    } elsif (/\d/ and /[A-Z]/ and /[a-z]/ and /\W|_/ and length($_) > 6)
         return "OK";
     } else {
         return "FM_PASSWORD2";