1 |
diff -Nur -x '*.orig' -x '*.rej' e-smith-formmagick-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick.pm mezzanine_patched_e-smith-formmagick-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick.pm |
2 |
--- e-smith-formmagick-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick.pm 2006-03-15 14:59:29.000000000 -0700 |
3 |
+++ mezzanine_patched_e-smith-formmagick-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick.pm 2007-06-01 13:59:21.000000000 -0600 |
4 |
@@ -794,7 +794,10 @@ |
5 |
|
6 |
my $reason; |
7 |
|
8 |
- return "OK" if ($strength eq "none"); |
9 |
+ if ($strength eq "none") { |
10 |
+ return $fm->localise("Passwords must be at least 7 characters long") unless (length($pass) > 6); |
11 |
+ return "OK"; |
12 |
+ } |
13 |
|
14 |
$reason = $fm->call_fm_validation('password', $pass, undef); |
15 |
|