Subversion Repositories DevTools

Rev

Rev 2426 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2426 Rev 2652
Line 991... Line 991...
991 
    #   perl-internal structure and can't spawn anymore processes.
 991 
    #   perl-internal structure and can't spawn anymore processes.
992 
    #
 992 
    #
993 
    my $rv = waitpid ( $pid, 0);
 993 
    my $rv = waitpid ( $pid, 0);
994 
 
 994 
 
995 
    #   Always process authentication errors
 995 
    #   Always process authentication errors
- 
 
 996 
    #       Even if user thinks they are handling errors
996 
    #
 997 
    #
997 
    #   Spell out authentication errors
 998 
    #   Spell out authentication errors
998 
    #   Appears that some users can't read manuals - let hope they can read screen
 999 
    #   Appears that some users can't read manuals - let hope they can read screen
999 
    #
 1000 
    #
1000 
    if ( $opt->{'error'} && $authenicationError )
 1001 
    if ( $authenicationError )
1001 
    {
 1002 
    {
1002 
        $opt->{'error'} = 'Authentication Error';
 1003 
        $opt->{'error'} = 'Authentication Error';
1003 
        $self->{ERROR_LIST} = [];
 1004 
        $self->{ERROR_LIST} = [];
1004 
        push @{$self->{ERROR_LIST}}
 1005 
        push @{$self->{ERROR_LIST}}
1005 
            ,'=' x 80,
 1006 
            ,'=' x 80,