How to have perl allocate pointers predictably.

Hi all,

with the included script below, Devel::Leak keeps outputting different pointers each time for
the leaked SVs. This makes debugging harder. Can I have perl somehow allocate the same pointers
each time when an allocation is being requested? I don't mind rebuilding a dedicated perl for that
using perlbrew or whatever. Note that this also happens if make_trouble() is as simple as
"my $x; $x = \$x;".

Regards,

-- Shlomi Fish

# Feeding XML::LibXML with an invalid file, triggering memory leaks

use strict;
use warnings;

use Devel::Leak;

use Encode;
use XML::LibXML;

use Carp;

binmode STDOUT, ':encoding(UTF-8)';

check_libxml_memory();

sub check_libxml_memory {
    print "running\n";
    my $handle;
    my $leaveCount = 0;
    my $enterCount = Devel::Leak::NoteSV($handle);
    print STDERR "\nENTER: $enterCount SVs\n";
    {
        make_trouble(); # Trace how loading a bad doc affects memory
    }
    $leaveCount = Devel::Leak::CheckSV($handle);
    print STDERR "\nLEAVE: $leaveCount SVs\n";
}

sub make_trouble {
    # Tries to load a bad XML file into XML::LibXML
    my $filenameIn = 'libxml-trouble-sample.html';
    local $/; #Read whole file
    open(my $FILEIN,'<', $filenameIn)
        or die "Can't read file '$filenameIn' [$!]\n";
    my $str = <$FILEIN>;
    close ($FILEIN);

    # Feeds the bad file to XML::LibXML.
    my $parser = XML::LibXML->new;
    my $success=1;
    # if recover is set to 0 or 1, the problem ceases to exist
    my $doc = $parser->parse_html_string($str,
        {recover => 2, encoding => 'UTF-8'}
    );

    return;
}

1;

-- 
-----------------------------------------------------------------
Shlomi Fish       http://www.shlomifish.org/
Funny Anti-Terrorism Story - http://shlom.in/enemy

What is is. Perceive It. Integrate it. Act on it. Idealize it.
    — Leonard Peikoff

Please reply to list if it's a mailing list post - http://shlom.in/reply .