| Current Path : /usr/share/doc/perl-Test-Valgrind/samples/ |
| Current File : //usr/share/doc/perl-Test-Valgrind/samples/map.pl |
#!/usr/bin/perl
use strict;
use warnings;
use lib 'blib/lib';
use Test::Valgrind;
{
local $SIG{ALRM} = sub { kill "TERM", $$ };
alarm 1;
while (1) { map 1, 1 }
}