Index: DJabberd/lib/DJabberd/Connection.pm =================================================================== --- DJabberd/lib/DJabberd/Connection.pm (revision 738) +++ DJabberd/lib/DJabberd/Connection.pm (working copy) @@ -47,7 +47,7 @@ use constant POLLOUT => 4; BEGIN { - my $xmldebug = $ENV{XMLDEBUG}; + my $xmldebug = $ENV{XMLDEBUG} || ''; eval "use constant XMLDEBUG => $xmldebug"; if ($xmldebug) { @@ -133,11 +133,13 @@ sub log_outgoing_data { my ($self, $text) = @_; + my $id = $self->{id} ||= 'no_id'; + if($self->xmllog->is_debug) { - $self->xmllog->debug("$self->{id} > " . $text); + $self->xmllog->debug("$id > " . $text); } else { local $DJabberd::ASXML_NO_TEXT = 1; - $self->xmllog->info("$self->{id} > " . $text); + $self->xmllog->info("$id > " . $text); } }