1 |
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 |
2 |
--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm 2005-10-31 12:24:02.000000000 -0500 |
3 |
+++ mezzanine_patched_perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/Validator/Network.pm 2006-01-13 16:27:40.000000000 -0500 |
4 |
@@ -201,7 +201,7 @@ |
5 |
$_ = $data; |
6 |
if (not defined $_) { |
7 |
return "FM_PASSWORD1"; |
8 |
- } elsif (/\d/ and /[A-Z]/ and /[a-z]/ and /\W/ and length($_) > 6) { |
9 |
+ } elsif (/\d/ and /[A-Z]/ and /[a-z]/ and /\W|_/ and length($_) > 6) |
10 |
return "OK"; |
11 |
} else { |
12 |
return "FM_PASSWORD2"; |