From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 19 Mar 2014 00:35:25 +0000 (-0700)
Subject: readstatus supports empty status files
X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=commitdiff_plain;h=a8b1b9a4814a9e5737b78b1e26dfb073a814012f

readstatus supports empty status files
---

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>);