Copied from Debian.

From: Kamil Dudka <kdudka@redhat.com>
Date: Mon, 14 Sep 2015 18:24:56 +0200
Subject: fix infinite loop when extracting empty bzip2 data
Bug-Debian: https://bugs.debian.org/802160
Bug-RedHat: https://bugzilla.redhat.com/show_bug.cgi?id=1260944
Origin: other, https://bugzilla.redhat.com/attachment.cgi?id=1073339

---
 extract.c | 6 ++++++
 1 file changed, 6 insertions(+)

--- a/extract.c
+++ b/extract.c
@@ -2728,6 +2728,12 @@
     int repeated_buf_err;
     bz_stream bstrm;
 
+    if (G.incnt <= 0 && G.csize <= 0L) {
+        /* avoid an infinite loop */
+        Trace((stderr, "UZbunzip2() got empty input\n"));
+        return 2;
+    }
+
 #if (defined(DLL) && !defined(NO_SLIDE_REDIR))
     if (G.redirect_slide)
         wsize = G.redirect_size, redirSlide = G.redirect_buffer;
option value='koszko-scripts'>koszko-scripts</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Wojtek's customized Guix</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=87a10e315f60a198875dec31665b6a8775c9ca9c'>refs</a><a class='active' href='/guix/log/gnu/packages/haskell-apps.scm'>log</a><a href='/guix/tree/gnu/packages/haskell-apps.scm?id=87a10e315f60a198875dec31665b6a8775c9ca9c'>tree</a><a href='/guix/commit/gnu/packages/haskell-apps.scm?id=87a10e315f60a198875dec31665b6a8775c9ca9c'>commit</a><a href='/guix/diff/gnu/packages/haskell-apps.scm?id=87a10e315f60a198875dec31665b6a8775c9ca9c'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/haskell-apps.scm'>
<input type='hidden' name='id' value='87a10e315f60a198875dec31665b6a8775c9ca9c'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=87a10e315f60a198875dec31665b6a8775c9ca9c'>root</a>/<a href='/guix/log/gnu?id=87a10e315f60a198875dec31665b6a8775c9ca9c'>gnu</a>/<a href='/guix/log/gnu/packages?id=87a10e315f60a198875dec31665b6a8775c9ca9c'>packages</a>/<a href='/guix/log/gnu/packages/haskell-apps.scm?id=87a10e315f60a198875dec31665b6a8775c9ca9c'>haskell-apps.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/haskell-apps.scm?id=87a10e315f60a198875dec31665b6a8775c9ca9c&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-06-28 16:50:18 +0300'>2022-06-28</span></td><td><a href='/guix/commit/gnu/packages/haskell-apps.scm?id=4045b96cfab48141a6b4edf0cc2ab895cf691be3'>gnu: git-annex: Update to 10.20220624.</a><span class='msg-avail'>...</span></td><td>Kyle Meyer</td></tr>