Changeset 4dd6e58 for perl


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/Net/XMPP/Connection.pm

    reaf9ed0 r4dd6e58  
    8181
    8282    $self->{DEBUG} =
    83         new Net::XMPP::Debug(level      => $self->_arg("debuglevel",-1),
    84                              file       => $self->_arg("debugfile","stdout"),
    85                              time       => $self->_arg("debugtime",0),
    86                              setdefault => 1,
    87                              header     => "XMPP::Conn"
    88                     );
     83        Net::XMPP::Debug->new(level      => $self->_arg("debuglevel",-1),
     84                              file       => $self->_arg("debugfile","stdout"),
     85                              time       => $self->_arg("debugtime",0),
     86                              setdefault => 1,
     87                              header     => "XMPP::Conn"
     88                             );
    8989
    9090    $self->{SERVER} = {};
     
    9898
    9999    $self->{STREAM} =
    100         new XML::Stream(style      => "node",
    101                         debugfh    => $self->{DEBUG}->GetHandle(),
    102                         debuglevel => $self->{DEBUG}->GetLevel(),
    103                         debugtime  => $self->{DEBUG}->GetTime(),
    104                        );
     100        XML::Stream->new(style      => "node",
     101                         debugfh    => $self->{DEBUG}->GetHandle(),
     102                         debuglevel => $self->{DEBUG}->GetLevel(),
     103                         debugtime  => $self->{DEBUG}->GetTime(),
     104                        );
    105105   
    106106    $self->{RCVDB}->{currentID} = 0;
Note: See TracChangeset for help on using the changeset viewer.