[552] in BarnOwl Developers
[D-O-H] r669 - / branches/par/perl/lib/Net/XMPP
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:07:20 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Sat, 17 Mar 2007 14:48:02 -0400 (EDT)
Author: nelhage
Date: 2007-03-17 14:48:02 -0400 (Sat, 17 Mar 2007)
New Revision: 669
Modified:
/
branches/par/perl/lib/Net/XMPP/Connection.pm
Log:
r20279@phanatique: nelhage | 2007-03-17 14:46:56 -0400
For reasons I don't claim to understand, using the old-style new was
throwing odd errors about undefined functions.
Property changes on:
___________________________________________________________________
Name: svk:merge
- 6122c8b4-0e12-0410-9533-8bcd7c66c992:/local/dirty-owl-hacks:24493
6aa88b72-b502-0410-8cb4-a5dd0230fb79:/owl-local:1356
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/barnowl:20278
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/d-o-h:18636
+ 6122c8b4-0e12-0410-9533-8bcd7c66c992:/local/dirty-owl-hacks:24493
6aa88b72-b502-0410-8cb4-a5dd0230fb79:/owl-local:1356
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/barnowl:20279
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/d-o-h:18636
Modified: branches/par/perl/lib/Net/XMPP/Connection.pm
===================================================================
--- branches/par/perl/lib/Net/XMPP/Connection.pm 2007-03-17 18:47:58 UTC (rev 668)
+++ branches/par/perl/lib/Net/XMPP/Connection.pm 2007-03-17 18:48:02 UTC (rev 669)
@@ -80,12 +80,12 @@
while($#_ >= 0) { $self->{ARGS}->{ lc(pop(@_)) } = pop(@_); }
$self->{DEBUG} =
- new Net::XMPP::Debug(level => $self->_arg("debuglevel",-1),
- file => $self->_arg("debugfile","stdout"),
- time => $self->_arg("debugtime",0),
- setdefault => 1,
- header => "XMPP::Conn"
- );
+ Net::XMPP::Debug->new(level => $self->_arg("debuglevel",-1),
+ file => $self->_arg("debugfile","stdout"),
+ time => $self->_arg("debugtime",0),
+ setdefault => 1,
+ header => "XMPP::Conn"
+ );
$self->{SERVER} = {};
$self->{SERVER}->{hostname} = "localhost";
@@ -97,11 +97,11 @@
$self->{DISCONNECTED} = 0;
$self->{STREAM} =
- new XML::Stream(style => "node",
- debugfh => $self->{DEBUG}->GetHandle(),
- debuglevel => $self->{DEBUG}->GetLevel(),
- debugtime => $self->{DEBUG}->GetTime(),
- );
+ XML::Stream->new(style => "node",
+ debugfh => $self->{DEBUG}->GetHandle(),
+ debuglevel => $self->{DEBUG}->GetLevel(),
+ debugtime => $self->{DEBUG}->GetTime(),
+ );
$self->{RCVDB}->{currentID} = 0;
