From a8b1b9a4814a9e5737b78b1e26dfb073a814012f Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 18 Mar 2014 17:35:25 -0700
Subject: [PATCH] readstatus supports empty status files

---
 scanlib.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scanlib.pm b/scanlib.pm
index 6ed7cce..a728bd0 100644
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -258,7 +258,9 @@ sub readstatus {
 		or die "$filename: $!";
 
     while (1) {
-		chomp (my $type = <STATUS>);
+		my $type = <STATUS>;
+        last if not defined $type;
+        chomp $type;
 		if ($type eq 'package') {
 			chomp (my $package = <STATUS>);
 			chomp (my $section = <STATUS>);
-- 
2.39.5