1 files changed, 17 insertions, 0 deletions
diff --git a/t/041-double-free.t b/t/041-double-free.t
new file mode 100644
index 0000000..44b4c39
--- /dev/null
+++ b/t/041-double-free.t
@@ -0,0 +1,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 ();