Changeset ffe70f9

Timestamp:

Jan 9, 2007, 11:33:42 PM (18 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:

• perl/modules/jabber.pl (modified) (1 diff)

perl/modules/jabber.pl

@@ -352 +352 @@
             my @result = $client->AuthSend( %{ $vars{jlogin_authhash} } );
 
-            if ( ($result[0] || "") ne 'ok' ) {
-                if ( !$vars{jlogin_havepass} && $result[0] eq '401' ) {
+            if ( !@result || $result[0] ne 'ok' ) {
+                if ( !$vars{jlogin_havepass} && ( $#result == -1 || $result[0] eq '401' ) ) {
                     $vars{jlogin_havepass} = 1;
                     $conn->removeConnection($jidStr);