e-smith-lib/sme8/e-smith-lib-1.18.0-validatePassword.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm      2008-01-07 06:26:45.000000000 -0700
+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm    2008-01-07 06:25:43.000000000 -0700
@@ -574,7 +574,7 @@
     $reason = 'it does not contain uppercase characters' if (not $password =~ /[A-Z]/);
     $reason = 'it does not contain lowercase characters' if (not $password =~ /[a-z]/);
     $reason = 'it does not contain special characters' if (not $password =~ /\W|_/);
-    return $reason unless ($reason eq 'ok' || $strength eq 'strong');
+    return $reason if ($reason ne 'ok' && $strength eq 'strong');
 
     $reason = fascist_check($password, '/usr/lib/cracklib_dict');
     $reason ||= 'the password check failed';
1	bytegw	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm
2			--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm 2008-01-07 06:26:45.000000000 -0700
3			+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/util.pm 2008-01-07 06:25:43.000000000 -0700
4			@@ -574,7 +574,7 @@
5			$reason = 'it does not contain uppercase characters' if (not $password =~ /[A-Z]/);
6			$reason = 'it does not contain lowercase characters' if (not $password =~ /[a-z]/);
7			$reason = 'it does not contain special characters' if (not $password =~ /\W\|_/);
8			- return $reason unless ($reason eq 'ok' \|\| $strength eq 'strong');
9			+ return $reason if ($reason ne 'ok' && $strength eq 'strong');
10
11			$reason = fascist_check($password, '/usr/lib/cracklib_dict');
12			$reason \|\|= 'the password check failed';