blob: 1689da8097bdf20916d25df2e67b8c308b0822c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
Devel::Leak has two functions NoteSV and CheckSV.
NoteSV walks the perl internal table of allocated SVs (scalar values)
- (which actually contains arrays and hashes too), and records their
addresses in a table. It returns a count of these "things", and
stores a pointer to the table (which is obtained from the heap using
malloc()) in its argument.
CheckSV is passed argument which holds a pointer to a table created
by NoteSV. It re-walks the perl-internals and calls sv_dump() for
any "things" which did not exist when NoteSV was called. It returns
a count of the number of "things" now allocated.
|
