Changeset 4dd6e58

Timestamp:

Mar 17, 2007, 2:48:02 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:

2622450

Parents:

0337203

git-author:

Nelson Elhage <nelhage@mit.edu> (03/17/07 14:46:56)

git-committer:

Nelson Elhage <nelhage@mit.edu> (03/17/07 14:48:02)

Message:

For reasons I don't claim to understand, using the old-style new was
throwing odd errors about undefined functions.

File:

• perl/lib/Net/XMPP/Connection.pm (modified) (2 diffs)

perl/lib/Net/XMPP/Connection.pm

@@ -81 +81 @@
 
     $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} = {};
@@ -98 +98 @@
 
     $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;