Changeset d0b3a40 for perl

Timestamp:

Dec 24, 2006, 6:23:29 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:

bfbf590

Parents:

72bcca3

Message:

 r15871@phanatique:  nelhage | 2006-12-24 18:19:26 -0500
 Oops -- fix to make this actually run. No longer create jabber.log if debug mode is off
 r15872@phanatique:  nelhage | 2006-12-24 18:22:20 -0500
 Missed one more change

File:

• perl/modules/jabber.pl (modified) (2 diffs)

perl/modules/jabber.pl

@@ -39 +39 @@
     my $jidStr = shift;
 
-    my $client = Net::Jabber::Client->new(
-        owl::getvar('debug') eq 'on'
-          ? (debuglevel =>  ? 1 : 0,
-             debugfile => 'jabber.log')
-          : ()
-         );
+    my %args = ();
+    if(owl::getvar('debug') eq 'on') {
+        $args{debuglevel} = 1;
+        $args{debugfile} = 'jabber.log';
+    }
+    my $client = Net::Jabber::Client->new(%args);
 
     $self->{Client}->{$jidStr} = $client;
@@ -363 +363 @@
         }
             else {
-                ${ $conn->getRosterFromJidStr($jidStr) }->fetch();
+                $conn->getRosterFromJidStr($jidStr)->fetch();
                 $client->PresenceSend( priority => 1 );
                 queue_admin_msg("Connected to jabber as $jidStr");