]> git.vpit.fr Git - perl/modules/Test-Valgrind.git/blob - samples/map.pl
Fix generations of XSLoader suppressions
[perl/modules/Test-Valgrind.git] / samples / map.pl
1 #!/usr/bin/env perl
2
3 use strict;
4 use warnings;
5
6 use lib qw{blib/lib blib/archpub};
7 use Test::Valgrind;
8
9 {
10  local $SIG{ALRM} = sub { kill "TERM", $$ };
11  alarm 1;
12  while (1)  { map 1, 1 };
13 }