[WTF CVS] wtf/lib/WTF/Apache Authen.pm,1.3,1.4
Brought to you by:
gryphonshafer
From: Gryphon S. <gry...@us...> - 2006-12-05 16:03:38
|
Update of /cvsroot/wtf-tracker/wtf/lib/WTF/Apache In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv31981 Modified Files: Authen.pm Log Message: Moved the checking of for undef outside of the if conditional where it wasn't really doing any good anyway Index: Authen.pm =================================================================== RCS file: /cvsroot/wtf-tracker/wtf/lib/WTF/Apache/Authen.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Authen.pm 2 Dec 2006 00:09:09 -0000 1.3 --- Authen.pm 5 Dec 2006 16:03:35 -0000 1.4 *************** *** 31,39 **** $r->pnotes( 'username' => $r->user() ); # use simple crypt() encryption to test password if ( ( defined $id ) and ! ( crypt( $passwd_auth, substr( $passwd_db, 0, 2 ) ) eq $passwd_db || '' ) ) { --- 31,40 ---- $r->pnotes( 'username' => $r->user() ); + $passwd_db ||= q(); # use simple crypt() encryption to test password if ( ( defined $id ) and ! ( crypt( $passwd_auth, substr( $passwd_db, 0, 2 ) ) eq $passwd_db ) ) { |