Threads / Refcounts

[Bauldric]

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)

[BrowserUk]

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?

[bulk88]

Considered using VMMap on your perl process?