File: memory-leak.off

package info (click to toggle)
libparse-mediawikidump-perl 1.0.6-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 228 kB
  • sloc: perl: 1,156; xml: 205; sql: 16; makefile: 2
file content (25 lines) | stat: -rw-r--r-- 402 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!perl

use strict;
use warnings;

use Parse::MediaWikiDump;
use Devel::Cycle;

my $dump1 = Parse::MediaWikiDump->revisions('t/pages_test.xml');
my $NUM_TESTS = 10000;
my $i = 0;

find_cycle($dump1);

#exit 1;

while ($i++ < $NUM_TESTS) {
	my $dump = Parse::MediaWikiDump->pages('t/pages_test.xml');

	while($dump->next) { }
	
	$dump = Parse::MediaWikiDump->pages('t/pages_test.xml');

	$dump->next;
}