t/041-double-free.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

# -*- mode: perl -*-

use Test::More tests => 1;

use strict;
BEGIN {
  use_ok('Compress::Bzip2');
};

do 't/lib.pl';

# [cpan #28366] double free or corruption on 32 bit, threaded
my $INFILE = catfile( qw(bzlib-src sample1.ref) );
my $bz = bzopen($INFILE, 'rb') ;
print "a";
while ($bz->bzreadline($_) > 0) {}
$bz->bzclose ();