Source

Perl-XS-Guide / perl5 / ext-embed-internals / docbook / examples / 0007-iterate-over-array / XSTest / t / lib / scripts / get-24-leak-test.pl

Full commit
#!/usr/bin/perl

use strict;
use warnings;

use blib;

use XSTest;

while (1)
{
    my $i = XSTest::get_24();
    $i++;
}