memory leakage

I went further and tried the Net::XMPP code:


#!/usr/bin/perl 
use strict;
use warnings;

print_size('empty');
use Net::XMPP;
print_size("after Net::XMPP");
for (1..10) {
    my $conn   = Net::XMPP::Client->new;
    print_size('Net::XMPP::Client created');
    my $status = $conn->Connect(
        hostname       => 'talk.google.com',
        port           => 5222,
        componentname  => 'gmail.com',
        connectiontype => 'tcpip',
        tls            => 1,
    );
    print_size('connection started');
    $conn = undef;
}



sub print_size {
    my ($msg) = @_;
    my @lines = qx{/bin/ps -e -o pid,ppid,vsize,rss,command | grep ^$$
+};
    chomp @lines;
    foreach my $line (@lines) {
        my ($pid, $ppid, $vsize, $rss) = split /\s+/, $line;
        print "VM: $vsize   RSS: $rss   - $msg\n";
    }
    return;
}
[download]

The result is

VM: 48596   RSS: 14648   - empty
VM: 48596   RSS: 14652   - after Net::XMPP
VM: 48808   RSS: 14744   - Net::XMPP::Client created
VM: 67920   RSS: 18344   - connection started
VM: 67920   RSS: 18344   - Net::XMPP::Client created
VM: 68072   RSS: 18408   - connection started
VM: 68072   RSS: 18408   - Net::XMPP::Client created
VM: 68192   RSS: 18464   - connection started
VM: 68192   RSS: 18464   - Net::XMPP::Client created
VM: 68192   RSS: 18516   - connection started
VM: 68192   RSS: 18516   - Net::XMPP::Client created
VM: 68300   RSS: 18572   - connection started
VM: 68300   RSS: 18572   - Net::XMPP::Client created
VM: 68412   RSS: 18648   - connection started
VM: 68412   RSS: 18648   - Net::XMPP::Client created
VM: 68516   RSS: 18712   - connection started
VM: 68516   RSS: 18712   - Net::XMPP::Client created
VM: 68636   RSS: 18784   - connection started
VM: 68636   RSS: 18784   - Net::XMPP::Client created
VM: 68740   RSS: 18856   - connection started
VM: 68740   RSS: 18856   - Net::XMPP::Client created
VM: 68848   RSS: 18928   - connection started
[download]

So if I understand correctly this means the Net::XMPP::Client is leaking memory? How could I better check it?

Comment on memory leakage Select or Download Code

Replies are listed 'Best First'.
Re: memory leakage by szabgab (Priest) on Jun 23, 2011 at 12:33 UTC
Added `use Devel::LeakGuard::Object qw(leakguard);` [download] and then leakguard around the for loop and I got: `Object leaks found: Class Before After Delta FileHandle 0 10 10 IO::Select 0 20 20 IO::Socket::SSL 0 10 10 IO::Socket::SSL::SSL_Context 0 10 10 IO::Socket::SSL::SSL_HANDLE 0 10 10 Net::XMPP::Client 0 10 10 Net::XMPP::Debug 0 10 10 XML::Stream 0 10 10 XML::Stream::Parser 0 20 20 utf8 0 1 1` [download] I guess this means there is a memory leak.	[reply] [d/l] [select]
Re: memory leakage by Anonymous Monk on Jun 23, 2011 at 12:33 UTC
So if I understand correctly this means the Net::XMPP::Client is leaking memory? How could I better check it? Well, Net::XMPP::Client or one of the modules it uses -- to narrow it down you might try Devel::Cycle, Devel::Leak, Devel::MemoryTrace::Light, Devel::LeakGuard::Object, Devel::Monitor, but its a lot of T.I.T.S. :)	[reply]

In Section Seekers of Perl Wisdom