Changeset 140d02a for perl

Timestamp:

Dec 26, 2006, 1:00:34 AM (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:

20eb22c

Parents:

bed4ff1

git-author:

Nelson Elhage <nelhage@mit.edu> (12/24/06 18:19:26)

git-committer:

Nelson Elhage <nelhage@mit.edu> (12/26/06 01:00:34)

Message:

Oops -- fix to make this actually run. No longer create jabber.log if debug mode is off

File:

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

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;