Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Threads / Refcounts

by Bauldric (Novice)
on Oct 28, 2012 at 09:42 UTC ( #1001260=note: print w/replies, xml ) Need Help??

in reply to Re: Memory Leak Package
in thread Memory Leak Package

Good morning, my holy reverend

For my following little program I did no use threads

use strict; use warnings; use CProcess; # own class use B; CProcess->PrintProcessInfo("perl.exe");

# Output: Process-ID 12280: Memory 13716 KB (+13716 KB) - Peak 13716 KB - Threads 3 - Handles 115 (perl)

The only packages I use are:

use strict; use warnings; use Carp; use FileHandle; use Sys::Hostname; use Cwd; use Win32::Registry; use IO::Select; require Win32::Console; require Win32::Clipboard; require Win32::PerfLib; require Win32::OLE; require Tk::MainWindow; require 5.000; require Exporter;
perhaps one of them uses threads.

To count refcounts I use

require B; my $anon = []; my $otherref = $anon; my $refcount = B::svref_2object($anon)->REFCNT(); # => 2

which counts the referents of the referenced object (and not only of the variable itself like Devel::Peek)

Replies are listed 'Best First'.
Re: Threads / Refcounts
by BrowserUk (Pope) on Oct 28, 2012 at 09:57 UTC
    For my little program

    Is this the 400,000 line/100 package "small program"? :)

    I did not use threads

    I got the notion that you were using threads from your post:

    ID 7772: Memory 34200 KB ( 34200 KB) - Peak 34940 KB - Threads 3 - Han +dles 124 (perl) .......................................................^^^^^^^^^
    The only packages I use are: ... perhaps one of them uses threads.

    Hm. None of those use threads, (as in Perl Ithreads), that I am aware of.

    But Win32::OLE might well use -- or cause to be used -- kernel threads.

    But more interesting, is that none of those is XML::Simple as is the subject of How can I free the memory of a XML::Simple-Object?

    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

    RIP Neil Armstrong

Re: Threads / Refcounts
by bulk88 (Priest) on Oct 28, 2012 at 18:49 UTC
    Considered using VMMap on your perl process?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1001260]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2018-07-18 20:59 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (396 votes). Check out past polls.