Changeset ffe70f9 for perl


Ignore:
Timestamp:
Jan 9, 2007, 11:33:42 PM (17 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
8203afd
Parents:
5adb3d7
git-author:
Nelson Elhage <nelhage@mit.edu> (01/09/07 15:48:56)
git-committer:
Nelson Elhage <nelhage@mit.edu> (01/09/07 23:33:42)
Message:
This is slightly cleaner than checking $#result.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r5adb3d7 rffe70f9  
    352352            my @result = $client->AuthSend( %{ $vars{jlogin_authhash} } );
    353353
    354             if ( ($result[0] || "") ne 'ok' ) {
    355                 if ( !$vars{jlogin_havepass} && $result[0] eq '401' ) {
     354            if ( !@result || $result[0] ne 'ok' ) {
     355                if ( !$vars{jlogin_havepass} && ( $#result == -1 || $result[0] eq '401' ) ) {
    356356                    $vars{jlogin_havepass} = 1;
    357357                    $conn->removeConnection($jidStr);
Note: See TracChangeset for help on using the changeset viewer.