On Tue, Mar 23, 2004 at 02:14:44PM -0600, Brian Clarkson wrote:
> I might need to take a look at that patch.  The error that shows up is 
> from sub authen_ses_key ....

My patch is attached. I'm not sure it will help much if you're having
problems reading in the key but let me know how it goes.


William

-- 
Knowmad Services Inc.
http://www.knowmad.com
466,467c466,467
<       my $user = $credentials[ 0 ];
<       unless ( $user =~ /^.+$/ ) {
---
>       my $user = $credentials[ 0 ] || '';
>       unless ( $user && $user =~ /^.+$/ ) {
469c469
<               return 'bad';
---
>               return;
472,473c472,473
<       my $password = $credentials[ 1 ];
<       unless ( $password =~ /^.+$/ ) {
---
>       my $password = $credentials[ 1 ] || '';
>       unless ( $password && $password =~ /^.+$/ ) {
475c475
<               return 'bad';
---
>               return;
486c486
<               return 'bad';
---
>               return;
497c497
<               return 'bad';
---
>               return;
504c504
<                       return 'bad';
---
>                       return;
510c510
<                       return 'bad';
---
>                       return;
516c516
<                       return 'bad';
---
>                       return;
551c551
<               return 'bad';
---
>               return;
648a649
>       $issue_time ||= '';

-- 
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html

Reply via email to